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AUTOMATED COMPUTER TEST SYSTEM 
AUTOMATED PRODUCT TEST SYSTEM 

IS STORED IN THE 4TH WORD OF THE COMMAND 
PACKET AND IT'S USE BY THE TSO4 DEPENDS 
ON THE TYPE OF COMMAND. 

TSO4 COMMAND (SEE 2.3.14.1 FOR LIST OF COMMANDS) 
FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CONTAINS ALL INFORMATION NEEDED BY THE 
TSO4 TO EXECUTE A COMMAND. 

FOUR WORDS OF TSO4 STATUS WHICH A 
TRANSFERRED AS PART OF THE MESSAGE. PACKET AT 
THE COMPLETION OF A COMMAND. 

SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TSO4 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 

PROGRAM COUNTER 

PROCESSOR STATUS WORD 

THIS COUNT IS PART OF THE MESSAGE PACKET 
AND CONTAINS THE NUMBER OF BYTES/RECORDS 
/FILES aE yy TO BE PROCESSED AT THE 
COMPLETION OF A_ COMMAND. 

TSS4 BIT15. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITH 
OUT INCIDENT. 


THREE BIT CODE IN THE TSSR WHICH INDI- 
CATES THE TYPE OF COMMAND TERMINATION. 


TAPE SYSTEM BUS ADDRESS REGISTER. 
TAPE SYSTEM DATA BUFFER REGISTER. 
TAPE SYSTEM STATUS REGISTER. 
EXTENDED STATUS REGISTER 0 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 


XXDP+ IS A ‘‘CATCH=ALL’* NAME FOR A GROUP OF PDP-11 
DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 


1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


1.1.1 FUNCTIONAL DESCRIPTION 


THIS PROGRAM CAN BE USED AS A BASIC tor TEST, A DATA RELIABILITY 
TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
SELECTED COMMANDS. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC IS A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 


DIAGNOSTIC 
SUPERVISOR 


FREE MEMO SPACE FOR WR/RD BFRS OR OTHER PUROSES . 
IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
BY PROGRAMMER TO RESIDE BETWEEN THE DIAG AND THE 
SUPERVISOR. 





1.1.4 DIAGNOSTIC INFORMATION 


1.1.4.1 SCOPE 


THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 
ARE ASSIGNED LOGICAL UNIT NUMBERS 0 - 3 BY THE DIAGNOSTIC. 


THERE ARE 5 TESTS IN THIS PROGRAM: 


TEST 1 = BASIC a admit tte 

TEST 2 = DATA RELIABILITY 

TEST 3 = WRITE COMPATABILITY/WRITE UTILITY. 
TEST 4 = READ COMPATABILITY/READ UTILITY. 
TEST 5 = OPERATOR SELECTED SEQUENCE UTILITY. 


ERROR RECOVERY 


ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 

ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. 

THE READ os comnetin REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 
AND 8 IN THE OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVERY 
PROCEOURES, SEE SECTION 3.0 (ERROR REPORTING). 


WRITE ERROR RECOVERY 


THERE ARE 2 DISTINCT, SELECTABLE lite minaiha ALGORITHMS: 
1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
- OPERATIONAL ALGORITHM 


BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 


TO SELECT THE oe ALGORITHM: 
ANSWER TO CHANGE SW (L) 
ANSWER IN! TO BAD TAPE SPOT DETECTION CL) ¥ ? 


WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
AND BOTH ALGORITHMS ARE BYPASSED. 


1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
SCOPE 


THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
OPERATIONAL ONES. 


ALGORITHM 


A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE 
ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 

THE WRITE RETRY SUBROUTINE REWRITES RECORD IN SAME SPOT ON TAPE: 

REPEAT 4 TIMES. 

IF ALL 4 REPEATS ARE GOOD, RECORD IS CONSIDERED AS RECOVERED AND 

A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 

IF ANY OF THE 4 eae FAILS, ERASE BAD RECORD, LOGG SUSPECTED 

BAD SPOT AT THAT RECORD NUMBER, RETRY AGAIN 3 INCHES FURTHER DOWN TAPE. 
RETRY 4 TIMES, UP TO 4 REPEATS EACH. 

IF RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERROR AFTER 4 RETRIES, 
ERASE RECORD, REPORT RETRY FAILED ON BAD SPOT. 

THE hE COVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 

RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETR 

UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 








TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER TAPE PASS. 
WHEN 20 BAD SPOTS HAVE BEEN LOGGED, ON SAME RECORD NUMBER OR NOT, 

TAPE IS CONSIDERED vag A A BAD TAPE OVERFLOW MESSAGE IS PRINTED 
AND UNIT IS REWOUND, THEN DROPPED. 


DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL stat 
POSITION OPERATIONS: SPACE REVERSE . ERASE. IF A POSITION ERROR STATUS 
3 DETECTED DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTED, 

AN APPROPRIATE UNRECOVERABLE MESSAGE IS PRINTED AND UNIT IS DROPPED. 


L_ BADLY WRITTEN RECORDS FLAGGED WITH tee ont ERRORS ARE ERASED 
NG THE RECORD AT THE 20TH BAD ee 
GOOD WRITTEN RECOR 


UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 
A ny RECORD, IF NO BAD SPOT WERE PREVIOUSLY DETECTED. 

THAT LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 

BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 


BAD SPOTS REPORTS 


IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 
IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED oan RECOVERED, 
THE BAD SPOTS ACTUALLY PRECEDES THE RECORD NUMBER THAT ye pha. - 

THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE. 

LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETRY. 


THE aoa cont REPORT PRINTED AT THE END OF TEST 2 OR UPON A ‘PRINT’ REQUEST, 
CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT TAPE PASS. 


IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR 
NUMBER OF BAD ras: T RELATES TO A ‘TAPE PASS** ONLY. 
S PURPOSE, A ‘TAPE PASS’ IS A WRITE PASS FROM BOT TO EOT, OR FROM 
BOT TO WHERE THE DIAGNOSTIC IS HALTED BEFORE se onal mt 
A PASS IS DEFINED BY THE SUPERVISOR AS A RUN THROUGH A L THE TESTS REQUESTED 
ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS TBASS™ AND 'OP"’. 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 


THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 
PER TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS, MOST OF THE TIME. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y’ TO: CLEAR COUNTERS (L) Y ?. 
BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT. 


IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 


SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 


THE SAME RECORDS MUST BE WRITTEN FORM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


EXAMPLE OF A TAPE PASS PRINTS: 


CZTSH SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 








’ a4 


WRT CMD FAILED = UNIT 0 PASS: 1 RECORD: 6 
peat tik i” A rec 


CMD TSSR 
100205 002406 600000 100210 4 
6600 


e 


XSTO XST1 XST2 XST3 
000350 000002 100400 000000 


SUSPECT BAD SPOT AFTER 1 aeree’ 2 REPEAT 
SUSPECT BAD SPOT AFTER 2 RET 1 REPEAT 
SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 
SUSPECT BAD SPOT AFTER 4 RETRY, 3 REPEAT 
RETRY FAILED ON BAD SPOT...ERASED! 
SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 
SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 


CZTSH SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERR 


WRT CMD FAILED - UNIT 0 PASS: 1 RECORD:10210 
An de a CMD _. Bd 
CMDPKT TSBA TCC 


TSSR 
100205 002406 000000 100210 4 
026600 


004000 

XSTO XST1 XST2 XST3 
000350 000002 100010 000000 
RECOVERED ON RETRY # 1 


DR>PRI 


UNIT 0 _ PASS: 1__ RECORD: 10210 
BYTES WRITTEN 0.272,279.691 
BYTES READ REV 0,301,123,654 
BYTES READ REV siestaite ° Me™ 


RECOVERABLE ERRORS 1 
UNRE COVERABLE ERRORS 0 0 0 
WRITE RETRIES 3 


2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD #: 
SPEC COND HARD FATAL COMPARE 
= 2 0 0 0 


THIS EXAMPLE SHOWS: 
RECORD 6 RECOVERED ON 2ND RETRY GROUP 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS 5 AND 6 
RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
3 WRITE re RETRIES ATTEMPTED, RESULTING IN: 
OVERABLE WRT ERR FROM ging” 10210 
2 BAD SPOTS BETWEEN RECORDS 5 AND 6 


1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 


WHEN THIS ALGORITHM IS SELECTED, THE TS11 WRITE RETRY COMMAND 
IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON 


4 


A WRITE RECOVERABLE ERROR. THE WRiTE RETRY COMMAND CONSISTS 

OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF 3 INCHES 
OF TAPE_AND REWRITE OF THE RECORD. THAT COMPOSITE COMMAND 

DOES NOT ALLOW TO DETECT BAD SPOTS ON TAPE. 

THEREFORE NO BAD TAPE SPOTS STATS IS PRINTED. 


IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 


DIAGNOSTIC TIMING ADJUSTMENT 


A_NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 
COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. 

THE COUNT FOR THE INNER LOOP COMES FORM THE FIXED ‘HEADER’ 
ELEMENT ‘LSDLY’’. 

AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
VARY IN LENGTH WITH MEMORY SPEED. 


IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 
UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED 
TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 
THAT FIXED DELAY ELEMENT ‘L$DLY"’. 


A PRESET COUNT 4 500 RESIDES AT ‘LSDLY*’ IN LOCATION 2116 OF re 
"‘HEADER’* SECTION 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 


PDP-11 PROCESSOR WITH 16K OR MORE - MEMORY 
CONSOLE DEVICE A LA36,VT50,ETC.) 
PROGRAM LOAD DEVIC 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 





1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL MD~11=CHQUS 

DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

PDP=11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
ERVISOR PROGRAMMER'S GUIDE. 


TS11/TSO4 PROGRAMMING SPECIFICATION. 


TS11/TSO4 ENGINEERING SPECIFICATION. 
TS11/TSO4 COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) CONTROL LOGIC PROGRAM - ALL TESTS. 
2) DATA RELIABILITY PROGRAM: 
B) DATA RELIABILITY TEST. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
DO NOT FUNCTION PROPERLY. 


1.6 DIAGNOSTIC HISTORY 


REVISION A 


REVISION B 


REVISION B 


REVISION C 





- OCT T 1978 
= ORIGINAL RELEASE 


FEB,1979 

- CORRECTED END OF TAPE PROBLEMS IN TESTS 3-5, 

= CHANGED DEFAULT VECTOR ADDRESS FROM 150 TO 224. 
EY MAXIMUM RECORD LENGTH FROM 2096" TO 2048 BYTES. 


-DO NOT PRINT RECOVERABLE ERRORS UNLESS ok tate BY OPERATOR 
“WARN OPERATOR OF UNIT(S) BEING NOT READY OR OFF-LINE. 
DROP UNIT(S) LEFT NOT READY OR OFF-LINE FOR 3.5 “MINUTES. 
~IMPROVE BEHAVIOR AT EOT 
-IN TEST 2, FREEZE UNITS REACHING EOT UNTIL OTHERS 
CATCH=UP INSTEAD OF ALLOWING THEM TO SHUTTLE AT EOT 
“WHEN ALL UNITS REACH EOT, WRITE ONE RECORD BEYOND EOT. 
READ a THAT EXTRA RECORD TO POSITION TAPE 
SO THAT THE NEXT COMMAND REQUESTED CAN BE EXECUTED. 
THAT EXTRA RECORD SHALL LEAVE A CLEAN IRG GAP AND A VALID 
RECORD TO READ WHEN SHORTER READ STOP DISTANCE MIGHT CAUSE 


IMINATE MANY READ ERRORS: AT 
EOT AND TAPES toes Bas THE WHEELS. 
“WRITE RECORD COUNT ON TAPE. 
PRINT RECORD COUNT READ FROM TAPE IN READ ERROR PRINTS TO 
INDICATE IF POSITION WAS LOST. 


* CAUTION * 


INTERPRET THAT ‘RECORD READ'’ COUNT WITH CAUTION. 
IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE ns alt 
POSITION IS NOT NECESSARELY LOST. ERRORS IN READING T 
RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY. 
READ FROM TAPE. 
IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR opal gag RECORD COUNT 
IS RESET TO ZERO ALTHOUGH TAPE WAS NOT RE THIS IS 
eng! BE CAUSE ATHERE IS NO ACCURATE WAY TO DETERMINE 

T RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 
BEFORE RESTARTING OR CONTINUING. 
IT IS SUGGESTED THAT A *PRINT’’ BE REQUESTED WHEN HALTING DIAG 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


“VERIFY RECORD OF 4000 BYTES INSTEAD OF 22 BYTES. 
“WHEN COMPARING DATA, CHECK AND PRINT IF NO DATA WAS READ 
OR RECORD WAS LONGER THAN EXPECTED. 
“FREEZE TSSR REG WHEN A COMMAND IS COMPLETED TO AVOID DIFFERENCES 
BETWEEN TSSR AND TCC FETCHED AT DIFFERENT TIMES. 
WHEN DROPPING A UNIT, FLAG. SECOND PRINT OF EXTENDED STATUS AS BEING 
THE RESULT OF A GET STATUS C 
WAIT FOR SSR UP BEFORE PRINTING THAT STATUS. 
“ADJUST "PASS'” COUNT OF DIAG TO MATCH "EOP" PASS COUNT OF SUPERVISOR. 
“INCREASE NUMBER OF SELECTABLE COMMANDS IN TEST 5 F 
4 TO 7. DEFAULT COMMAND 6 IS NOW REWIND. 
-CONVERT DIAG TO REV C OF SUPERVISOR. 
ADD. SEVERAL SECTIONS: 
PROTECT TABLE 
AUTO-DROP CODE 
SHARD CODED PARAMETER TABLE 
~ ADD MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
TO DETECT BAD SPOTS ON TAPE, 


2.0 OPERATING INSTRUCTIONS 


FOR OPERATING INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXDP+ OPERATOR''S 


2.1 HARDWARE PARAMETERS 


A ‘N'* RESPONSE TO_"‘CHANGE HW?'', THE DIAG SHALL RUN ASSUMING 
ONE AUNIT AT TSSR = 172522 WITH A VECTOR = 224. 


ON A _‘'Y’* RESPONSE TO ''CHANGE HW?'' QUESTION, THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSSR ADDRESS (172522) ? 
VECTOR (224) ? 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 
BY SETTING THE FLAG ‘‘ADR'’ ON A STA, RES OR CON COMMAND. 
THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRESS 
OF THE TSSR(S). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 
WITH THE FOLLOWING Ao 

TRAP A ( XXXXXX = TSSR AD ) 


BUS 

INTERFACE *BAD oR NOT SET TO ABOVE AD. 
ON A_RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT 
ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 
BE RUN ON PESPONDING UNITS. 


"© THE ‘AL \’' FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 
UN'TTS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

TO WAP 7 Me PATOR OF UNITS BEING NOT READY OR OFF-LINE. THESE UNITS 
SHALL RF "Au .tD . "FR A REASONABLE AMOUNT OF TIME (3 MIN ON A 11/70). 





2.2 SOFTWARE PARAMETERS 
THE FOLLOWING QUESTIONS ARE ASKED _IF REQUESTED ON A START, RESTART, 
OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 
CLEAR COUNTERS (L) Y ? 
RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE ERRORS (L) N ? 
HALT AFTER EACH CMD (L) N ? 
INHIBIT RECOVERY (L) N ? 
BAD TAPE SPOT DETECTION (L) Y ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RFC ERROR REPORTS (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 


NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
OPERATOR SELECTED SEQUENCE i, TO BE EXECUTED. 


NG 
ANSWERED OR DEFAULTED WITH A <CR> ONLY: 
ape (oy CODE (0) 40? (0,20,40,200) (OCTAL) 
7/2 (D) 13 ? ( (DECIMAL ) 


1-27) L 
(DECIMAL) 
(DECIMAL) 


1 
N 
NY 
~~ 


ey COUNT (D) 2048 ? 
# OF aoe es (D) 32000 ? 


-—O——— 
boar T 
x 
~~ 


7 COUNT (D) 2048 ? 
# OF ee (D) 32000 ? 


Tre 


Ae 


ieee aes 
' 
co 


oO 
Bd tne bo het bee bot pe Pe ee et Be 


AAA ARAA AAA A AAA AAAAARAAAAA 
ab TP? 
J 
FEEEEEEEEEEEE 
NNN NN Nee ew 


_—— 
‘ 

COWN POCO 
~NAN~ 
nxzaww 

= 


DE 
PATTERN (D) 7 ? (DECIMAL) 


NOTE: |THE PROGRAM AUTOMATICALLY INSERTS AN or plait Sa 40 
AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 


=) 
' 





dD 2 


DIFFERENT CHARACTERISTIC IS hry THE OPERATOR SHOULD 
ENTER THAT CHARACTERISTIC +E A TOTAL OF 7 COMMANDS 
MAY BE eh IN ADDITION TO THE SET CHARACTERISTICS 
COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN : 
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN 

CONTROL 2 (*Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUE . 





WN —SOVONAUSWN—-ODONA WW 


Nofmonony — 3 3 SS SS 


24 


25 


26 
27 


LIST FOR 
COMMAND 


END 


USE IN SOFTWARE DIALOGUE. 
DESCRIPTION 

DRIVE INITIATE. 

READ FORWARD. 

READ REVERSE. 


WRITE. 
Mae or IE. WRITE N RECORDS; READ REVERSE AND CHECK 
RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 
SPACE RECORDS FORWARD. 
SPACE RECORDS REVERSE. 
READ NEXT wher oH IE. SPACE FWD, READ REV. 
READ NEXT FORWARD, IE. READ F ACE RE 
READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 
READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
WRITE RETRY. 


REWIND. 
MESSAGE BUFFER RELEASE. 
WRITE TAPE MARK. 

WRITE TAPE MARK RETRY. 
SPACE FILES FORWARD. 
SPACE FILES REVERSE. 
GET EXTENDED STATUS. 
ERASE 3 INCHES OF TAPE. 
UNLOAD. 


a 
oo 
A 
m 
= 


CLEAN TAPE 
SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 0. 
200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
= ENABLE ATTENTION INTERRUPTS. 
20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
SEE _TS11/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
DIAGNOSTICS. SEE TS11/TSO4 PROGRAMMING SPECIFICATION 
FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
JUMP TO THE NTH COMMAND IN THE ee SEQUENCE 
TABLE, WHERE N IS DEFINED IN THE BRF FIELD. 
THE NUMBER OF JUMPS IS ENTERED IN THE # OF OPERATIONS FIELD 
DELAY ‘WN’* MILISECONDS WHERE N IS DEFINED IN 
THE # OF OPERATIONS. 
END OF COMMAND SEQUENCE. 


2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN # 


ONAULSWNR Oo 


DESCRIPTION. 

INCREMENTING PATTERN. 0 ~ 377. 

ALL ‘I'S PATTERN. 

ALL ‘D'S PATTERN. 

rays BIT WALKING FROM R TOL IN A EIELD OF (0:"'s 

0'' BIT WALKING FROM R TO L_IF A FIELD OF ‘"'"S. 

ALTERNATING ‘‘I'' AND BITS WITH ALTERNATE BYTES COMPLIMENTED. 
ALTERNATING BYTES OF 000 AND 377. 


RANDOM DATA PATTERN. 
NO PATTERN GENERATION. 


(125/252) 


2.3 EXAMPLES OF SOFTWARE DIALOGUE 


2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


RECEIVE PROMPT (DR>) 
ENTER STA/TES:1=2<CR> 
ANSWER HARDWARE QUESTIONS. 
PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE Sw (L) 

CLEAR COUNTERS. (L) N ? 

RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE ERRORS (L) N ? 
HALT AFTER EACH CMD (L) N ? 

og oH RECOVERY (L) N ? 

BAD TAPE SPOT DETECTION (L) ¥7 
DISABLE INTERRUPTS (L) N ? 

INHIBIT RFC ERROR REPORT () N ? 
CHANGE CMD SEQUENCE (L) N ? 





2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


RECEIVE PROMPT (DR>) 

ENTER STA/TES: , ane LOE: IER: ISR: IDU<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N ? Y<CR> 
RESET RANDOM VARIABLES (L) N ? N<CR> 
PRINT artce Ect wer (L) N ? N<CR> 
HALT AFTER EACH “ (L) N ? N<CR> 
INieL RECOVERY (L) N “ N<CR> 
BAD TAPE SPOT DETECTION (L) ee N<CR> 
DISABLE INTERRUPTS (L) N N<CR> 
INHIBIT RFC ERROR REPORT i N ? Y<CR> 
CHANGE CMD SEQUENCE (L) N ? N<CR> 


2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


RECEIVE PROMPT (DR>) 

ENTER STA/TES:5/FLA: IER: 1SR: IDU/EOP: 1000<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N Y<CR> 
RESET RANDOM VARIABLES (L) N ? N<CR> 
PRINT RECOVERABLE ERRORS ; N<CR> 


N<CR> 
N<CR> 
N<CR> 
ABLE I L Y<CR> 
INHIBIT RFC ERROR REPORT iL) N ? Y<CR> 
CHANGE CMD SEQUENCE (L) N ? Y<CR> 
Sane oe ad CODE (0) 40 ? 40<CR> 
CMD/2 (D) to} 13<CR> (REWIND) (COULD BE ANY COMMAND) 
BRF COUNT (D) 2048 1<CR> 
# OF OPERATIONS (D) "10 ? 1<CR> 
PATTERN (D) 7 ? 1<CR> 
4<CR> (WRITE) (COULD BE ANY COMMAND) 
048 7 1000<CR> 
# OF OPERATIONS (D)-10 ? sues 
PATTERN (D) 7 ? <CR> 
CMD/4 (D) 5 ? oct (END) (COULD BE ANY COMMAND) 
BRF (D) 2048 ? <*7> 





2.4 EXECUTION TIMES 


2.4.1 SYSTEM CONFIGURATION 


PDP11/34 
MOS MEMORY 


LA36 
TS11/TS04 


2.4.2 TEST EXECUTION TIMES 


BASIC FUNCTIONS - 30 SECONDS PER PASS. 
DATA RELIABILITY - 45 MINUTES PER PASS. 
WRITE COMPATABILITY - 20 MINUTES PER ort 
READ COMPATABILITY - 20 MINUTES PER PASS. 

OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 


ALL_ EXECUTION TIMES ARE SHOWN FOR ONE UNIT OEPRATION. 
APPROXIMATELY 10% WILL BE ADDED TO ALL EXECUTION TIMES 
FOR EACH ADDITIONAL UNIT. 





3.0 ERROR INFORMATION 


ALL_ERROR REPORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 
OF THE FOLLOWING INFORMATION: 


ERROR #, TEST #, SUBTEST #, eaat Ceni "aah UNIT #, 
COMMAND, PREVIOUS COMMAND, PASS ~ ta # OF 
RECORDS Aggy BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 


TCC, 


RFC, AND THE EXTENDED STATUS REGISTERS 
OMMANDS) . 


TSBA, 
(SEE 2.3.14.1 FOR LIST OF C 


STANDARD ERROR REPORT FORMAT: 


CZTSH SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
(ASCII ERROR MESSAGE) 
XXX CMD FAILED - — X PASS: ny. RECORD: XXXXX 


PREVIOUS CMD WAS RECORD READ: XXXXX * 
CMDPKT TSBA RFC TSSR TCC 

MMXXKK XK XK KKAKAKK 

XXX 

XXXXXX 

XXXXXX 


xSTO XST1 XST2 XST3 
MXXXKKK  XKXKKKK  XKKKKK AXA 


* CAUTION * 


INTERPRET THAT ‘RECORD READ'' COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE on pen 
POSITION IS NOT NECESSARELY LOST. ERRORS IN READING T 

RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS ~ gy 4 . ee RECORD COUNT 
IS RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS IS 
NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 
BEFORE RESTARTING OR CONTINUING. 

IT IS SUGGESTED THAT A ‘PRINT'’ BE REQUESTED WHEN HALTING DIAG 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


EXAMPLE OF AN ERROR REPORT: 


CZTSH SFT ERR eer TST 002 SUB 000 PC: 010606 
RECOVERABLE ERR 


WRT CMD FAILED - = WNIT 2 PASS: 2 RECORD: 254 
alate _— ~ 

CMDPKT TCC 

100005 002524 600000 108210 4 

051766 

000371 


XSTO XST1 XST2 XST3 
000350 000002 100004 000000 


3.1.1 ERROR #1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


re 


5.1.5.3 





IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
comert e sdlacabete FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 = TSO4 NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO THE TS04, THE SUBSYSTEM READY 
BIT IN THE TSS4 IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
option it ues BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR #3 - NO RESPONSE ERROR: 


ONCE THE TSDB IS soore' hk THE TSO4 HAS ONE tog gr y > alas 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST “SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 - NO INTERRUPT ERROR: 


COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 


SPECIAL CONDITION ERRORS: 


IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
i HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 


THE TERMINATION CLASS CODES in THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET 

ERROR #5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 
THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

AND THE PROGRAM PROCEEDS NORMALLY. 

ERROR #6 ~- TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 

ERROR #7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 


- ree CONDITION HAS BEEN ENCOUNTERED THAT rg HAVE SIGNIFICANCE 
THE PROGRAM. 8B N » LET, ALL. EOT. 


ND T 
F THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 


3.1.5.4 


A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 


ERROR #8 = TERMINATION CLASS CODE 3, FUNCTION REJECT 
THE a” ce FUNCTION WAS NOT INITIATED. BITS OF a pata ARE 
RMR , VCK, BOT, AND NBA. THIS IS A FATA 


L 
DEVICE. ERROR AND THE DEVICE WILL BE DROPPED FROM THE TESt CYCLE 
UNLESS THE IDU OPTION IS USED. 


31.5.5 ERROR #9 = TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


3.1.5.6 


3.1.5.7 


3.1.5.8 





TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION re INITIATED. aE tatar PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #10 = TERMINATION CLASS CODE 5, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY ee ar iee 7S TO LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS vig aoe THE ONLY ee RECOVERY PROCEDURE IS TO 
REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
NUMBERS. IF ae ie CHECK IS SET THIS DIAGNOSTIC WILL REWIND a 

RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 

DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL CLASS a FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #13 - RFC NON-ZERO ERROR: 

IF, AFTER EXECUTION, .y ie bon FRAME COUNT IS “yA THE 
ERROR IS REPORTED AND A D ERROR IS LOGGED. THE PROGRAM THEN 
ryt he ego THE REPORT ING AND LOGGING OF THESE ERRORS 
ERROR #14 - RETRY LIMIT EXCEEDED: 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ON A READ COMMAND THIS oye is LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY 


ERROR #15 = TOO MANY INTERRUPTS: 


IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #16 - CAPSTAN RUNAWAY: 


CAPSTAN a NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

COMMA’ THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

THIS IS A FATAL DEVICE ERROR AND THE DEVICE = BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED 


ERROR #17 - DATA COMPARE ERROR: 


IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 

THE TOTAL # OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 

HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 





4.0 PERFORMANCE REPORT 


UNIT PASS :XXXXX RECORD : XXXXX 
BYTES M WRITTEN XK KKM, KKM, KKM 
BYTES READ REV XXX ,XXX MXM, XXX 
BYTES READ FWD XXX ,XXX XXX, XXX 
WRT RDR RDF 


RECOVERABLE ERRORS XXXXX MXXXX = XXXXX 
UNRECOVERABLE ERRORS XXXAX XXXXX = XXAXX 


SPEC COND HARD FATAL COMPARE 
XXXXK = XXXXK = KKK KKK 


5.0 TEST SUMMARIES 


5.1 TEST 1 - BASIC FUNCTIONS. 
EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSO4 FUNCTIONS. 


SUBTEST 1 = SET CHAR, DRIVE INIT, GET STATUS. 
S ‘eh ae 200. 


ITIATE 
Bn mats 20. 
GET STATUS 
SET CHARACTERISTIC 40. 
PRINT TSO4 MICROCODE LEVEL (PASS 1 ONLY) 


REWIND. 
+ REWIND. 
+ REWIND AT BOT. 


SUBTEST 3 - saab hye Al 
+ WRITE/VERIFY PATTERN 1. 
WRITE/VERIFY PATTERN 2. 
WRITE/VERIFY PATTERN 3. 


$e ¢F 


SUBTEST 2 


SUBTEST 4 = WRITE TAPE MARK, ERASE. 
+ WRITE TAPE MARK, 

+ WRITE 10 RECORDS 
+ 
+ 
+ 


WRITE —E MARK. 
WRITE TAPE MARK RETRY. 
SUBTEST 5 = SPACE FILES, 
+ SPACE 2 FILES REVERSE 
+ SPACE 2 FILES FORWARD. 
+ SPACE 2 FILES REVERSE. 
+ SPACE 2 FILES FORWARD. 
SUBTEST 6 - SPACE RECORDS. 
+ REWIND. 


+ SPACE 7 RECORDS FORWARD. 
+ SPACE 7 RECORDS REVERSE. 


+ SPACE 7 RECORDS FORWARD. 
+ SPACE 7 RECORDS REVERSE. 


SUBTEST 7 = WRITE RETRY. 
+ REWIND. 
WRITE DATA. 
WRITE RETRY. 
SUBTEST 8 REV RETRY. 


REVERSE. 
READ NEXT REVERSE. 
READ NEXT FORWARD. 


SUBTEST 9 FWD RETRY. 
READ FORWARD. 
READ PREVIOUS FORWARD. 
READ PREVIOUS REVERSE. 


SUBTEST 10 
+ REWIND. 


SUBTEST 11 = WRITE/VERIFY SWAPPED DATA BYTES. 
WRITE/VERIFY EVEN LENGTH (RECORD 1). 
WRITE/VERIFY ODD LENGTH (RECORD 2). 
SET DATA BYTE SWAP. 

WRITE/VERIFY EVEN LENGTH (RECORD 3). 
WRITE/VERIFY ODD LENGTH (RECORD 4). 
CLEAR DATA BYTE SWAP. 


SUBTEST 12 = READ SWAPPED DATA BYTES. 
READ REV RECORD 4. 

READ REV RECORD 3. 
SET DATA BYTE SWAP. 
READ REV RECORD 2. 
READ REV RECORD 1. 
READ FWD RECORD 1. 
READ FWD RECORD 2. 
CLEAR DATA BYTE SWAP. 
READ FWD RECORD 3. 
READ FWD RECORD 4. 


+ 
+ 
+ 
+ 
+ 
+ 


ee 





8 3 
DATA RELIABILITY. 


1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
SET CHARACTERISTIC 40 


REWIND 
WRITE/VERIFY 31 RECORDS OF RANDOM LENGTH AND DATA 
. WRITE AND READ COMMANDS ARE wenes Gt -¥ RANDOM AND ARE 
NUMBER OF TIMES WITH RAND 


OM 
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED. 
3. AT_THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT I'S PRINTED. 
NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 

WRITE COMPATABILITY/WRITE UTILITY. - 
REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 
READ COMPATABILITY/READ UTILITY. 


REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 


EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


THE SEQUENCE OF COMMANDS ENTERED BY THE — 

IS EXECUTED. IF NO COMMANDS WERE ENTERED 

DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWD/REWIND 
OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

AND RECORD LENGTH OF 2048 BYTES. 


6.0 DEVICE INFORMATION TABLES 


6.1 GENERAL 


THE TSO4 TAPE SUBSYSTEM CONSISTS OF A TS11 wg: TO SERIAL BUS 
CONTROLLER CONNECTED TO A TSO4 DRIVE. FROM A SOFTWARE VIEWPOINT 
hg I en coe IS UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 


ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 
DATA BUFFER), 


TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 


COMMANDS ARE NOT WRITTEN TO THE ou th RATHER, 
POINTERS ARE WRITTEN WHICH POINT TO C 
+353 IN CPU MEMORY. THE C 

HE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 


1. COMMAND WORD 

2. LOW ORDER BUFFER ADDRESS 

3. HIGH ORDER BUFFER ADDRESS 
BYTE COUN’ 


THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ESSARY TO DETERMINE WHETHER: 
1. THE DRIVE IS READY 70 ACCEPT ANOTHER C 
COMMAND WAS EXE 


HE ABOVE CONDITIONS 
OR *‘COMMAND INITIATION'’ TIME, IT MAY BE ESSARY 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


- EXTENDED STATUS REGISTERS ARE NOT 4 DIRECTLY FROM 
he REGISTERS; RATHER, A ‘GET STATUS'’ COMMAND 
S ISSUED WHICH WILL CAUSE THE TSO4 TO TRANSFER EXTENDED 
TION TO THE MEMORY AREA —s TO BY THE 
T STATUS'’ COMMAND. THERE ARE FOUR 
EXTENDED STATUS REGISTERS. SEE 6.3. 


THE TSDB MUST BE WRITTEN WITH A Ba yt tn TO 
PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 

CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
SUBSYSTEM INIT. 


- COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD 
BOUNDARIES) . 





6.2 


UNIBUS INTERFACE SPECIFICATIONS 


772520 
772522 


772524 
772526 


772530 
772532 
772534 
772536 


REGISTER 
TSBA/TSDB 
TSSR 
TSBA/TSDB 
TSSR 
TSBA/TSDB 
TSSR 


TSBA/TSDB 
TSSR 


BIT DEFINITIONS FOR TS11/TSO4 REGISTERS 


TS11/TSO4 REGISTER SUMMARY 


15 


$—~n—~— + 


'A15! 
i i 


eo 


‘P15! 
i i 


eee 


x 
; 


14 13 12 


a ee ee 
1A14:A13:Al2! 
pownpownponns 
;P14:P13‘P12! 


a oe cf 
“UPE « SPE + RMR : 


$emnpown4powny 


a | 


! 'RLS!LET!RLL! 
2 ot ae 


SS ee | 


! 1! ICOR!CRS! 
£5 mee 


oe | 


; SIP “BPE « CAF « ; 


junabonmpanh 


11. 10 09 


,A111A10:A09: 


ro 
:P11;P10; P09: 
a a ot 
1NXM: NBA: A17! 
a a 


os 
“WLE «NEF «ILC: 
Py ny eee 
'TIG!DBF'!SCK! 
‘ 'NZO! : 


MICRO DIAGNOSTIC ERROR CODE 


Se ee ee ee ee ee a aS a ce a 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


a cteit ie 


CLASS CODES (TSSR FCO-FC1): 


MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TSO4 OPERATOR PANEL AND XST3). 
I/O SEQUENCER CROM PARITY ERROR. 
MICROPROCESSOR CROM PARITY ERROR. 


SILO PARITY ERR 


08 07 06 


$o--+---+--=+ 
:A08 :A07:A06: 
gown tonnponnt 
:P08 ‘P07: P06: 
pownpocnponns 
,A16: SSR: OFL« 
Pn Cy er 


oS 
“ TLA; MOT : ONL : 
Py Sy One 
: 'TPR!SYN! 
'DRP! 


a a eo 


: ‘uhh vied wits 


‘eit innieninnll + 


“ LMX OPI « 


TAPE NOT MOVED 
UNRE COVERABLE ERROR ~- TAPE POSITION LOST 
FATAL CONTROLLER ERROR 


2? a. 03 
1A05!A04!A03! | 
tana ta--t---+ + 
1POS!P04:PO3! ! 
toa-t—--4+---+ + 
tFCTLFCOITC2: ! 
taamtannton-t 4 


a a eS 
.1E led ad 


! ! 1 ! 
'TTM'LCOINZN! 
$ao=t—-=4+—-=+ 
Sime? 

+ + 
IREVICRF{DCK! | 


paatedebuneh 


SERIAL BUS PARITY ERROR DETECTED AT TS11 (SPE). 
SERIAL BUS PARITY ERROR DETECTED AT TS04 (BPE) 
FATAL ERROR HALTS 1750-1777 IN TSO4 PROGRAM COUNTER DISPLAY. 
LOSS OF AC POWER HAS BEEN DETECTED. 


02 2 
+ 


+ 
'P02!P17!P16! 


jams ee + 


'T¢1!TCO! 


a a ee 


+ 
{WK 80T E07: 


Py Cy Onn + 
POL !UNC!MTE ! 
'LRC!CRC!VPE! 


, a a neo 


‘tel ak ee 


INOI !LXS!RIB! 


inenbanndenad 





6.3.2 TS11 STATUS REGISTER (TSSR) 


UNIBUS ADDRESS + 2 = READ ONLY 
15 14 13 12 11. 10 09 08 ht 06 05. ned 05 | 02. 1 00 


$emnye Fe mnfemnfemny femme foemm foe} Femme femefoeen} femefewefewny fem fownfonn + 


SC | {UPE!SPE'RMR! iNXM!NBA!A17! 1A16!SSR!OFL! 1FCTIFCO!TC2! 'TC1! TCO! 


junt a cone pe jntieeheet SevmesGrenebamen Guumademntpel 


BIT NAME TCC DEFINITION 


> Ss SPECIAL CONDITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITHOUT 
INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS’ 
DETECTED OR AN EXCEPTION CONDITION OCCURRED. 
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
COMMANDS , eae MOTION AND AT BOT, EOT WHILE 

WRITING, ETC. Y ALSO BE SET BY THE ERROR 

BITS CONTAINED iN THE TSSR REGISTER: UPE, SPE, 
RMR, AND THE TERMINATION CLASS BITS ARE SOMETHING 
OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR - SEE RMR). 


14 UPE 4/5 UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU'S MEMORY. 


13. SPE 7 SERIAL BUS PARITY ERROR. THIS BIT IS SET BY 
THE TS11_ WHEN IT DETECTS A SERIAL BUS PARITY 
ERROR ON DATA RECEIVED FROM THE TS04. 


12 =RMR S Fey MODIFICATION REFUSED. SET BY THE TS11 
WHEN A_ COMMAND POINTER IS ae ett INTO TSDB AND 
SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 
THIS BIT CAUSES SPECIAL CONDIT ION BUT NO TERMINATION 
CLASS (IN FACT, THE TSO4 NEVER SEES THIS ERROR) 
BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 
COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
ne A FATAL CONTROLLER ERROR OR A SOFTWARE 


11 NXM 4/5 NON-EXISTENT MEMORY. SET BY THE TS11_ WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NOT EXIST. MAY WHEN FETCHING 


OCCUR 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


10 NBA § NEED BUFFER soe WHEN SET, INDICATES sty 
THE TSO4 NEEDS A MESSAGE BUFFER ADDRESS. THIS 
BIT IS CLEARED DURING THE SET CHARACTERISTICS 
COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


09 =AI7 Ss BUS ADDRESS BIT 17. A17_AND A16 a — 
LL Fn at OF BITS 17 AND 16 TSBA 


08 Al6 S BUS ADDRESS BIT 16. >°E Al7 (BIT 09). 


07 SSR Ss 


OS FCI 7 
04 FCO 7 
03 C2 Ss 
02 C1 S 
01 TCO Ss 
00 ~ - 


G 3 


SUB=SYSTEM READY. WHEN SET, INDICATES THAT THE 
TS11/TS04 SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, INDICATES THAT THE TS04 IS 
OF FL INE ~ UNAVAILABLE FOR ANY TAPE MOTION 


COMMANDS. _THI C 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS we ED ON THE 1S04. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 


a 2 baer CLASS BIT 02. THIS BIT, ALONG WITH 

THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
re ge AN ERROR OR EXCEPTION we OCCURS 
ON COMMAND. EACH THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A_ PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD JS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 


TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
NOT USED. 


UNIBUS ADDRESS + 2 - WRITE ONLY 


SUBSYSTEM INITIALIZE 





EXTENDED STATUS REGISTER 0 (XSTATO) 


14 13 12 nN 2 09 nd 07 06 05 04 03 


$emnfownfonny + ee. et Se 


: -RLS*LET-RLL: WWLE NEF HTLC! | FTLAIMOT ONL! ‘= ‘eng tee Oe {WLK BOT !EOT! 


BIT NAME TCC DEF INITION 


15 THK Sod TAPE MARK DETECTED. or WHENEVER A TAPE MARK 
WAS DETECTED DURING READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
EITHER THE RECORD'S LENGTH WAS ge he: THAN THE 

TE ON READ OPERATIONS, SPACE RECORD 
OPERATION ENCOUNTERED A TAPE MARK K OR BOT BEFOR 
ae" mites COUNT WAS EXHAUSTED, 


S___COMMAND WAS 
ENCOUNTERING BOT OR A DOUBLE TAP 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 


LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND TAP 


WHEN EITHER TWO CONTIGUOU 
MARKS ARE DETECTED OR WHEN MO 0 
AND THE FIRST RECORD ENCOUNTERED 
MARK. THE SETTING OF THIS BIT abe NOT OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN SET, THIS’ BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION ic ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 


NONRENECUTARLE FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND SPECIFIED REVERSE TAPE 
DIRECTION BUT THE TAPE WAS ALREADY 
POSITIONED AT BOT. 

THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 


09 


07 


05 


03 


02 


01 


ILC 


VCK 


PED 


BOT 


EOT 


$.5 


$.3 


S.2 


I 3 
OAD, OR A COMMAND WITH THE CLEAR VOLUME 
sre BIT SET, WHEN THE VOLUME CHECK 
* COMMAND, EXCEPT GET STATUS OR DRIVE 
INITIALIZE, WHEN THE ig = IS OFF-LINE. 
- Y WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS = WLS). 


ILLEGAL COMMAND. SET WHEN . COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 


TAPE IS MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE TSO4 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
hone he ENABLE BIT SUPPLIED ON THE LAST 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 


OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
(CVC) BIT - THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 


PHASE ENCODED DRIVE. WHEN 7" INDICATES THAT 
THE TSO4 IS CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TSO4 HAS ONLY 800 BPI NRZI 
DATA CAPABILITIES. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE /JAPE IS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS _ POSITIONED AT THE LOAD POINT AS 
— BY THE BOT REFLECTIVE STRIP ON THE 


END 4 TAPE. THIS BIT IS SET WHENEVER THE TAPE 
IS_ POSITIONED AT OR BEYOND THE END OF TAPE 
yk ue th STRIP. DOES NOT RESET UNTIL THE 

APE PASSES OVER THE REFLECTIVE — IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 





6.3.4 


BIT 


15 


14 


13 


12 


11 


10 


07 


EXTENDED STATUS REGISTER 1 (XSTAT1) 


15 


14 


13 12 ae . 09 08 07 06 05. sad 03 02. nl 00. 


tome} Fem ef ommmfomwn} foe fowe}oowes + een fomofoen} foeeefoeoefown} foeefoeefoe 


‘DLT! ! 
4 


TIG 


DBF 


NZO 


DRP 


” 


S.4 


‘COR: CRS: ITIG!DBF 1SCk' : IPR: SYN: ']PO! ED! POS! "POL !UNCMTE ! 


!DRP! !ITM!ILCO!NZN! !LRC!CRC!VPE! 


sedan feeefsoecesoeny focefoecefowa} foeefocafoaay fooafoewasonasy 


DEF INITION 


DATA LATE. ae WHEN THE I/O SILO IS FULL ON A 

READ OR_ EMP ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSO04. 


NOT USED. 


CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 


CREASE DETECTED. FOR NRZI, ALL DATA_ TRACKS 
DROPPED OUT FOR MOR 


LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 


TRASH_IN THE GAP. NON-ERASED DATA WAS DETECTED 
IN A_GAP DURING A READ, WRITE, WRITE TAPE MARK, 
OR ERASE COMMAND. 


DESKEW BUFFER FAIL. ONE OF THE DESKEW BUFFERS FAILED 
TO ASSERT ‘OUTPUT READY’ WITHIN 20 MICROSECONDS 
AFTER BEING ENABLED. THE DEAD TRACK BITS WILL 
INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 
a IS PROBABLY A RESULT OF A BROKEN FOR- 


NRZ FIFO OVERRUN. 


SPEED CHECK. TAPE SPEED WAS OFF BY MORE 

5% DURING A WRITE DATA OPERATION. NOTE THATS SPEED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 
5% TO CAUSE THIS ERROR. 


NOT USED. 

INVALID PREAMBLE. SET ON A PE DRIVE IF _ THE 
PREAMBLE APPEARS 36 
CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
SET IF_ THE PREAMBLE IS__INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARCTER IN READ~AFTER-WRITE. 

SYNCH Tek oe SET ON PE DRIVE IF THE 
FORMATTER WAS UNABLE 19 ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE 


NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 





WAS TO BE CONSIDERED CRC). 


INVALID alice Th SET ON A_ PE_ DRIVE DURING 
READ OR WRITE IF ANY OF THE FIRST 39 CHARACTERS 
OF THE POSTAMBLE ARE NOT READ CORRECILY. 


ILLEGAL TAPE MARK FOR NRZ. 


INVALID END DATA. FOR PE, EIGHT OUT OF NINE 
TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 


FOR NRZI, DATA WAS NOT DETECTED IN EITHER THE 
LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


POSTAMBLE SHORT. SET ON PE DRIVES DURING A 
READ OR WRITE WHEN LESS THAN 38 ALL-ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL-ONES 
CHARACTER. 


NRZ NOISE RECORD (FEWER THAN 13(10) FRAMES). 
POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC ERROR. SET ON NRZI DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 


UNCORRECTABLE DATA. SET ON PE DRIVES WHEN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 


DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZI DRIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR, 


MULTI-TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR. SET ON NRZI DRIVES WHEN 
ae DID NOT CONTAIN AN ODD NUMBER OF 


6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


15 14 13 12 " 10. 09 08 oF 06 05. a8 05. 02 =. 00 


tama teen pomn pennant fone pone pon= + tome town tonmnt Femn town tpenn} fomntonntpon= 
: OPM: : SIP: BPE « CAF : 'WcF! IDTPIDT7!DT6! | IDT5!DT4!DT3! 'pT2!DT1 D0! 
Gumns femafenafane} fecafecafenns fecafoectoces fecapecapeces foensonesoces 

BIT NAME TCC DEF INITION 

15 OPM S OPERATION IN PROGRESS. (TAPE MOVING) 


14 SIP 7,F2 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 


13. BPE 7,F2 SERIAL BUS oa ew AT DRIVE. SET BY THE 
TSO4 WHEN PARITY ERROR IS DETECTED ON DATA 
TRANSMITTED FROM THE TS11 TO THE TSO4. CAUSES FATAL 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 


12. CAF 7 ‘WS ae ACCELERATION FAIL. AFTER ACCELERATING 
APE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
AND FOUND TO BE OUT OF TOLERANCE BY MORE THAN 


11 ~ - NOT USED. 


10 ~=wCF 7 THE WRITE BOARD IS NOT EMPTYING THE I/O SILO AT 
THE PROPER RATE. THIS ERROR CAN BE THE RESULT OF 
so | net BOARD CLOCK NOT BEING TURNED ON (BROKEN 


- - NOT USED. 


09 

08 ODIP S DEAD TRACK PARITY. THE BITS DTP THROUGH DTO 
INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 
DURING THE LAST DATA TRANSFER OPERATION. _ IF 
DESKEW BUFFER FAIL (DBF) IS SET, THESE BITS 
INDICATE WHICH CHANNEL FAILED. 


07 = DI7 S DFAD TRACK 7. SEE DIP. 
06 DT6 S DEAD TRACK 6. SEE DTP. 
OS oT5 Ss DEAD TRACK 5. SEE DTP. 
04 DT4 Ss DEAD TRACK 4. SEE DTP. 
03 »DT3 Ss DEAD TRACK 3. SEE DTP. 
02. ODTe2 Ss DEAD TRACK 2. SEE DIP. 
01 = OT1 S DEAD TRACK 1. SEE DTP. 


00 =6DTO Ss DEAD TRACK 0. SEE DTP. 


M 3 


NOTE: ON A_SET CHARACTERISTICS ty THE UCODE Br ys IS RETURNED 
IN DT? THRU DTO. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 





6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


15 14 13 12 11. 10 09 08 07 06 05 04 03 02. 1 00 


tee t teen tewn teen} teen foewonfoen} foen fom fown} fem foewefoeen} foeoefooesoeca 


MICRO DIAGNOSTIC ERROR CODE ite ke ‘goes onl ome iNOI!LXS RIB! 


BIT NAME tcc DEF INITION 


15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
ALL’ ERROR CODES IN THE TABLE WILL BE gi te oa 
THE TSO4 CONTROL PANEL BUT ONLY CODES HIGHER T 
110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 


FATAL _CLASS CODE IN THE TSSR EQUALS 0, INDICATING 
AN INTERNAL DIAGNOSTIC FAILURE. 


O07 NTL 6 LIMIT EXCEEDED. SET WHEN THE TAPE TENSION ARMS 
HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE 
CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
NO TENSION EXISTS ON THE MOUNTED TAPE. 


06 OPI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 


05 REV S DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 
04 CRF 7 CAPSTAN RESPONSE FAILURE. A MOTION COMMAND W 


GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
BACK WITHIN A REASONABLE AMOUNT OF TIME. 


03 DCK S,6 DENSITY CHECK. SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
NON-NRZI IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 


02 NOI 6 NOISE Bs ae = DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MANY TO 
IGNORE), ARE DETECTED: 


NRZI: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS WELVE, FOLLOWED BY A CHARACTER IN 
EITHER THE CRCC oR LRCC WINDOWS. 


PE: AT LEAST 24 CHARACTERS IN A ROW THAT DO. 
NOT QUALIFY AS A TAPE MARK OR A DATA 
PREAMBLE . 


01 =LXS Ss eae EXCEEDED STATICALLY. THIS BIT IS SET ANY 
TIME THE LIMIT SWITCHES ARE EXCEEDED. THIS BIT 
CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE. 


B 4 


COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
‘ BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 


MICRO DIAGNOSTIC ERROR CODES 


FOLLOWING IS A LIST OF THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 
DIAGNOSTIC ERROR CODE ‘eg git BITS 15 =_08) AND ALSO IN THE LIGHTS ON THE 
TSO4 CONTROL PANEL, DUE TO FAILURES ON THE CAPSTAN BOARD, 1/0 BOARDS, 

TE READ BOARD, OR FORMAT TER a ton CE AATCR WiLL BE INA 


E L OLUMN BEL N 
LIGHTS (ENTER ONES WITH LEFT-MOST SWITCH, ENTER ZEROES WIT 
RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
ON-LINE SWITCH IS RETURNED TO OFF=LINE POSITION, ERRORS WILL BE 
DISPLAYED CONTINUOUSLY 


ERROR PROGRAM ERROR DESCRIPTION LIKELY SCOPE 
(DISPLAY) MODULE LOOP 


337 OPERAT IONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DIDN'T 
CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 


100 IOTSM BASIC I/0 MICRO FAILURE (PARITY M8967 = 14 
ERROR, IQATN, HANDSHAKING, AND 
DATA WINDOW TEST BETWEEN THE 1/0 
AND MAIN MICROS. 


NOTE: CAN ALSO BE CAUSED BY THE 
SERIAL BUS .SHIN (SHIFT IN) 
STUCK ASSERTED. 


ERROR IN I/0 CONTROL REGISTER TEST 


FAILURE OF FRAME COUNTER TEST 


FAILURE OF I/O SILO NON-PARITY ERROR 
DATA TEST OR THE WRITE FLAG. 


FAILURE OF I/O SILO PARITY ERROR M8966 
TEST OR DATA LATE TEST. 


FAILURE OF SHIFT LOOP WITH ZEROES. M8965 

FAILURE OF SHIFT LOOP WITH ONES. M8965 

FAILURE OF SHIFT LENGTH MUX. M8965 

da TO RECEIVE CORRECT OP-CODE M8965 
FROM TS11 WHEN 


WE SENT DATA OVER TS11 
THE SERIAL BUS. MOTHER BD 





FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATTN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEED COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWARD 

OR 377 FOR REVERSE WHILE DECELERATING, 
OR MVG BIT NOT 1. 


FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 

FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 
BIT DOESN'T WORK. 


FAILURE OF WRITE BOARD TO EMPTY 
SILO AT CORRECT SPEED. 

FORMATTER FLAG DOESN'T WORK ON THE 
M8922. 


FORMATTER SILO FILLING AND DATA 
ERROR 
PEAK SHIFT TEST ERROR 


8 eg hs TABLE LOOKUP ROM CHECKSUM 


C 4 


SBUS CABLE 


G159 2 
CBUS_CABLE 
M8963 


G159 


G159 


G159 


3,4 


3,4 
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gti PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-ENABL APS .AMA 
2 2000 
&GNMOD 


++ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER SGNRPT ,BGNSW,BGNSF T ,BGNAU ,BGNDU ,3GNSE TUP 


HEADER (C2ZTSF.C, "5 pees 1, MINTPRI 
Es: GNOSTIC NAME 


— od oe oe et 
WONAUEWWR—O OONAUSWIY 


38 


LSREV:: sREVISION LEVEL 
LSDEPO:: 70 
LSUNIT:: ;NUMBER OF UNITS 


TSPTHV 

LSTIML:: ;LONGEST TEST TIME 

005000 P 5000 
LSKPCP:: sPOINTER TO H.W. QUES. 

025074 4 LSHARD 
LSSPCP:: ;POINTER TO S.W. QUES. 

025146 ; LSSOFT 
LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 

002174 ‘ L SHW 
LSSPTP:: k sPTR. TO S.W. PTABLE 

002202 4 L$SwW 
LSLADP: : ;DIAG. END ADDRESS 

026554 ‘ LS$LAST 
LSSTA:: ;RESERVED FOR APT STATS 

000000 , 0 
L$CO:: 

000000 ‘ 0 
LSDTYP:: ;DIAGNOSTIC TYPE ‘ 


LSAPT:: ;APT EXPANSION 0 
LSDTP:: ;PTR. TO DISPATCH TABLE 

LSDISPATCH 
LS$PRIO:: ;DIAGNOSTIC RUN PRIORITY 

#INTPRI 
LSEXP):: ;EXPANSION WORDS 
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0 

0 
CSREVISION 
CSEDIT 


LSEXP2:: 
LSMREV:: ;SVC REV AND EDIT # 


LSEF:: DIAG. EVENT FLAGS 0 


0 

LSSPC:: 

000000 ‘ 0 
LSDEVP:: ; POINTER TO DEVICE TYPE LIST 

002164 P LSDVTYP 
LSREPP:: sPTR. TO REPORT CODE 

016014 4 LS$RPT 
LSEXP4:: 

000000 é 0 
LSEXPS:: 

000000 4 0 
LSAUT:: ;PTR. TO ADD UNIT CODE 

021576 L$AU 
LSDUT:: ;PTR. TO DROP UNIT CODE 

021524 P L$DU 
LSLUN:: ; LUN FOR EXERCISERS TO FILL 

000000 4 0 
LSDESP:: ; POINTER TO DIAG. DESCRIPTION 

002136 - LSDESC 
LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 

104035 ESLOAD 
LSETP:: ;POINTER TO ERRTBL 

000000 % 0 
LSICP:: ;PTR. TO INIT CODE 

017550 . LSINIT 
LSCCP:: ;PTR. TO CLEAN-UP CODE 

021462 . LSCLEAN 
LSACP:: ;PTR. TO AUTO CODE 

021040 ‘ LSAUTO 
LSPRT:: sPTR. TO PROTECT TABLE 

017542 ‘ LSPROT 
LSTEST:: ; TEST NUMBER 9 


LSDLY:: ;DELAY COUNT 5 
LSHIME:: ;PTR. TO HIGH MEM Q 


MNP 
Nony a 2 Se eS oe 
SSanRRnVvoon 
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-SBTTL DISPATCH TABLE 


S832 


p++ 
; THE DISPATCH TABLE CONTAINS THF STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 5 
LSDISPATCH:: 


000005 
021672 


2 
024232 


-SBTTL DESCRIPTIVE TEXT 


NONIDNND 2 @ @ 2 SS SS 


p++ 
32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER 


SpESC DESCRIPT <DATA RELIABILITY TEST> 

L i 

040504 040524 051040 /DATA RELIABILIT 
044502 
052040 


Mnrorwnr 


051505 


DEVTYP <TS11> 
LSDVTYP:: 
051524 030461 /TS11/ 
002172 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


QEAKRAYSS 
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9 13:59 DEFAULT HARDWARE P=TABLE 
138 .SBTTL DEFAULT HARDWARE P=TABLE 
140 p++ 
141 : THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
142 : THE TEST<DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
63 + IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P=TABLE. 
145 : 
146 002172 BGNHW  DFPTBL 
147 002172 000002 .WORD 1L10000-L$HW/2 
148 002174 LSHW:: 
149 002174 DFPTBL:: 
12 
152 002174 172522 172522 :TSSR ADDRESS. 
195 002176 000224 224 :VECTOR ADDRESS. 
155 002200 ENDHW 
156 002200 L10000: 
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-SBTTL SOFTWARE P-TABLE 


+ THE SOFTWARE P=TABLE CONTAINS THE VALUES OF tom PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERA 


BGNSW = SFPTBL 


L$SwW:: 
SFPTBL:: 


CLAFLGss « 
RRANV: : 


-WORD L10001-L$SW/2 


oO 
N 


;CLEAR COUNTERS FLAG. 

;RESET RANDOM hay wont or PASS FLAG. 

;HALT AFTER EACH COMMAND FLAG. 

ENABLE RECOVERABLE ERROR PRINTS FLAG. 

;BAD ae SWITCH TO REWRITE ON SAME SPOT & DETECT BAD TA 


; SPAR 

;DISABLE INTERRUPTS FLAG. 

; INHIBIT ERROR RECOVERY FLAG. 
: CHANGE CMD SEQ TABLE FLAG. 


E 
:INAIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 


SPARE 

: CHARACTERISTICS CODE (DEFAULT = 40). 
COMMAND 2 (DEFAULT = REWIND). 

BYTE COUNT 


NUMBER OF OPERATIONS 
PATTERN 
EFAULT 


COMMAND 3 (D WRITE) 

BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

NUMBER OF OPERATIONS (DEFAULT = 32000). 

PATTERN (DEFAULT = RANDOM). 

COMMAND 4 (DEFAULT = _READ REV). 

:BYTE ye (DEFAULT = MAX BUFFER SIZE). 
R OF OPERATIONS (DEFAULT = 32,000). 

PATTERN (DEFAULT = RANDOM). 

COMMAND 5 (DEFAULT = READ FWD). 

;BYTE wg (DEFAULT = MAX BUFFER SIZE). 
R OF OPERATIONS (DEFAULT = 32,000). 

PATTERN (DEFAULT = RANDOM). 

COMMAND 6 (DEFAULT = REWIND). 

;BYTE COUNT 

NUMBER OF OPERATIONS 

PATTERN 

:END OF CMD SEQ TABLE CODE (DEF) OR CMD 7 

7BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

NUMBER OF OP OPERATIONS (DEFAULT = 32000). 

PATTERN (DEFAULT = RANDOM). 

END OF CMD SEQ TABLE _CODE (DEF) OR CMD 8 

7BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

;NUMBER OF OPERATIONS | (DEFAULT = 32000). 

PATTERN (DEFAULT = RANDOM). 


I 
CHGFLG: : 
PIRE:: 


CHAR: : 
CMDD:: 


1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ed ed ed eed 
SRESKRORSSLSSSVRSSSVOB AAV NAVIASS 


L10001: 
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213 
214 002310 ENDMOD 
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CZTSHC.P11 11-OCT-79 13:59 SOF TWARE P=TABLE 
215 
216 . TITLE GLOBAL AREAS 
if -SBTTL GLOBAL EQUATES SECTION 
219 002310 BGNMOD 
220 
221 p++ 
222 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
$s ; ARE USED IN MORE THAN ONE TEST. 
225 
$38 002310 EQUALS 
$38 ; BIT DIFINITIONS 
230 100000 BIT15== 100000 
231 040000 BIT14== 40000 
232 020000 BIT13== 20000 
233 010000 BIT12== 
004000 BIT11== 4000 
235 002000 BIT10== 2000 
001000 BITO9== 1000 
237 00 BITO8== 400 
000200 BITO7== 200 
239 000100 BIT06== 100 
240 0 BITOS5== 4 
241 000020 BIT04== 20 
242 000010 BITO3== 10 
243 000004 BITO2== 4 
244 000002 BITO1== 2 
— 000001 BITOO== 1 
247 001000 BIT9== BITO9 
248 00 BIT8== BITO8 
249 000200 BIT7== BITO7 
250 000100 BIT6== BIT06 
251 0 BITS== BITOS 
252 000020 BIT4== BITO4 
253 000010 BIT3== BITO3 
254 000004 BIT2== BITO2 
255 000002 BIT1== BITO1 
$36 000001 BITO== BIT 
258 3 EVENT FLAG DEFINITIONS 
$2) ;  EF32:EF17 RESERVED FOR SUPERVISOR 10 PROGRAM COMMUNICATION 
261 000040 EF .START== 32. ; START COMMAND WAS ISSUED 
262 000037 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
263 000036 EF.CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
264 000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
oH 000034 EF .PWR== 28. 3 A POWER-FAIL/POWER-UP OCCURRED 
267 : 
$05 ; PRIORITY LEVEL DEFINITIONS 


270 000340 PRIO7== 340 
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PRI06== 300 


REGISTER USAGE. 
RO = PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
R1 = COMMAND SEQUENC TER. 


E TABLE POIN 
R2 - GENERAL PURPOSE REGISTER. 
R35 - GENERAL PURPOSE REGISTER. 
R4 ~ GENERAL PURPOSE REGISTER. 
R5 = CURRENT LOGICAL DEVICE NUMBER X 2. 
R6 - STACK POINTER. 
R7 = PROGRAM COUNTER. 


THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
TS.SC==100000 SPECIAL CONDITION BIT. 
TS. 0000 :UNIBU IT , = 


ts WNWWWNANWAWAW 
We 3 Se SV 


Ww 
-o 


WBDNAULWN—O 


SFATAL CLASS CODE MASK. 
177761 S TERMINATION CLASS CODE 





GLOBAL AR 
CZTSHC.P11 
322 


EAS 


MACY11 JPL) 
11-0CT=79 13:5 


11-O0CT=79 14:02 PAGE 14 


GLOBAL EQUATES SECTION 
3 THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 


ACK.C==100000 z;ACKNOWLEDGE BIT 

CVC.C==40000 :CLEAR VOLUME CHECK. 

OPP .C==20000 ;OPPOSITE BIT 

SWB. C==10000 ;SWAP BYTE BIT 

MOD .C3==4000 ; BIT 3 

F..C==4000 ° ;BYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 

;BY TSO4 BUT USED INTERNALLY BY THIS PROGRAM ONLY. 

MOD .C2==2000 sMODE BIT 2 

MOD.C1==1000 sMODE BIT 1 

MOD. C0==400 :MODE BIT 0 

IE.C== 00 ; INTERRUPT ENABLE 

FMT.C1==100 FORMAT BIT 1 

VFY. C==100 ‘WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
:NOT USED BY TS04. 

FMT.CO==40 7 FORMAT ‘ 

JMP.C==40 : + JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
3A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
;TABLE. INTERNAL USE ONLY. 

CMD.C4==20 : IT 

DLY.C==20 ; INSERT DELAY. INTERNAL USE ONLY. 

CMD. C3==10 ;COMMAND BIT 3 

CMD. C2== ;COMMAND BIT 2 

Cis= :COMMAND BIT 1 

CMD. CO== ; COMMAND BIT 9 

; BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 

CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICA! EOT). 

CH.EAI==40 sENABLE ATTENTION INTERRUPTS. 

CH.ERI==20 ;ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

DF TSCH==CH.EAI ;DEFAULT CHARACTERISTICS CODE. 


; THE FOLLOWING neatee” THE RELATIVE ieieiahiecta OF THE STATUS WORDS 
7 IN THE MESSAGE BUFFER 


MS .RF C== RESIDUAL FRAME COUNT. 
MS .XSO== EXT STATUS REG 0 
MS .XS1==10 EXT STATUS REG 1 
MS .XS2==12 sEXT STATUS REG 2 
MS .XS3==14 sEXT STATUS REG 3 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 
x0. TMK==100000 : TAPE MARK. 
X0.RLS==40000 RECORD LENGTH SHORT. 
X0.LET==20000 LOGICAL EOT. 
X0.RLL==10000 RECORD LENGTH LONG. 
X0.ONL==100 SON LINE BIT. 
x0.BOT==2 :BOT BIT. 
XO. EOT==1 :EOT BIT. 
:THE FOLLOWING ARE BIT CEFINITIONS FOR EXTENDED STATUS REGISTER 2. 
X2.0PM==100000 OPERATION IN PROGRESS, TAPE MOVING 


re ree ee | 
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i THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 


000010 X3.DCK==10 DENSITY CHECK. 
157400 X3.RNY==157400 ;CAPSTAN RUNAWAY UDIAG ERROR CODE. 


THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
:PACKET ENTRIES. 


; CMDPKT+0==TS04 COMMAND. 

7 CMDPKT+2==BUFFER ADDRESS LOw. 
cP. ; CMDPKT+4==BUF FER ADDRESS HIGH. 
CP. CNT== 7 CKDPKT+6==8YTE/FILE/RECORD COUNT 


; MISCELLANEOUS DEFINITIONS. 


INTPRI==PR107 PRIORITY TO BE USED IN itn STATE. 

TSBA==TSDB :DATA_BUFFER ADDRESS REGI 

SCHCNT==10 ; on 8 FoR CHARACTERISTIC 

MSGCNT==16 ;MESSAGE BUFFER LENGTH IN BYTES. (EVEN #) 
; SO USED DIAG 


Cc 

C He. Cc BUFFER EXTENT. 
DATCNT==2048. 7MAXIMUM oe Tye IN BYTES, 
a | COUNT SHOULD BE A MULTIP'E OF 256 TO INSURE 

PROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 

CNTLEN==CNTEND-CNTBGN ; LENGTH 4 STATISTICAL COUNTER AREA. 
RNOPSC==177740 OPERATIONS atte 


[RANDOM # OF 
: CODE TO SELECT RANDOM PAT 


; CONS T GENERATOR BASE. 
Hn vad syd USED TO RESET RANDOM # SAVE LOCATION. 
4 TIN , ates FOR DEVICE STATE TABLE. 
177740 NCMD. C==ACK. C!CVC.C!OPP. C!SWB.C!MOD. ON MOD.C2!MOD.C1!MOD.CO!IE.C!FMT.C1!FMT.CO 
zNOT *‘COMMAND'' BITS. 


: THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSO04 COMMAND. 


DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 
DRIVE INIT. 


RDF== ACK.C!BRF.C!CMD.CO 
READ FORWARD 


ACK.C!BRF.C!MOD.CO!CMD.CO 
READ REVERSE 


ACK.C!BRF.C!CMD.CO! CMD. a 
WRITE COMMAND 


ACK.C!BRF.C!VFY.C!CMD.CO!CMD.C2 
WRITE VERIFY 


ACK.C!BRF.C!CMD.C3 
:SPACE RECORD FORWARD 





GLOBAL AREAS MACY11 30(1046) 11-OCT-79 14:02 PAGE 16 
CZTSHC.P11 11-OCT-79 13:59 GLOBAL EQUATES SECTION 
4% 
435 104410 SRR== ACK.C!BRF.C'MOD.CO!CMD.C3 
cee SPACE RECORD REVERSE 
438 105401 RNR== ACK.C!BRF.C!'MOD.C1!MOD.CO!CMD.CO 
4 ;READ REV RETRY - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 
441 125401 RNF== ACK.C!BRFE.C!OPP.C'MOD.C1!MOD.CO!CMD.CO 
rr ;READ REV RETRY2 = REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 
444 105001 RPF== ACK.C!BRF.C!'MOD.C1!'CMD.CO 
rH READ FWD RETRY1 = REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORW 
447 125001 RPR== ACK.C!BRF.C!OPP.C'MOD.C1!CMD.CO 
“8 ;READ FWD RETRY2 = REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORW 
450 105005 WRR== ACK.C!MOD.C1!BRF.C!'CMD.C2!CMD.CO 
$2) WRITE RETRY 
453 102010 RWD== ACK.C!MOD.C2!CMD.C3 
434 REWIND COMMAND 
456 100012 MBR== ACK.C!CMD.C3!CMD.C1 
it ;MESSAGE BUFFER RELEASE 
459 100011 WIM== ACK.C!CMD.C3!CMD.CO 
at WRITE TAPE MARK. 
462 101011 WTIR== ACK.C!MOD.C1!CMD.C3!CMD.CO 
rer WRITE TAPE MARK RETRY. 
465 105010 SFF==  ACK.C!BRF.C'MOD.C1!CMD.C3 
466 SPACE FILE FORWARD 


468 105410 SFR== ACK.C!BRF.C!MOD.CO!MOD.C1!CMD.C3 


rt SPACE FILE REVERSE 

471 100017 GES== ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 

nih :GET MEX TENDED STATUS 
474 100411 ERS== ACK.C!MOD.CO!CMD.C3!CMD.CO 

rit ERASE 3 INCHES OF TAPE 
477 100412 UNL== ACK.C!MOD.CO!CMD.C3!CMD.C1 

ris UNLOAD COMMAND 

480 101012 CLN== ACK.C!MOD.C1!CMD.C3!CMD.C1 

rr 3 sERASE TAPE. 

483 140004 SCH== ACK.C!CVC.C!CMD.C2 SET DEVICE CHARACTERISTICS. 
rH 100006 DIA== ACK.C!CMD.C2!CMD.C1 ;DIAGNOSTICS. 

7 A 000040 JMP== JMP.C ; JUMP TO ‘N’'TH COMMAND 


489 000020 DLY== ODLY.C DELAY ‘N'' MS. 
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490 


491 177777 END== 177777 END OF COMMAND SEQUENCES 
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-SBTTL GLOBAL DATA SECTION 


++ 


; THE GLOBAL DATA see teow CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST 


COMMAND PACKET. 


‘ = .+38177774 ‘ 
CMDPKT:: . 

BUFFER LOW ADDRESS. 
BUFFER HIGH ADDRESS. 
BYTE/RECORD/FILE COUNT. 


GET STATUS COMMAND PACKET. 


= . +38177774 ;MUST BE ON MOD 4 BOUNDRY. 
: .WORD GES 


OunrwvaAOsS 


MESSAGE BUFFER RELEASE COMMAND PACKET. 


= - +38177774 ;MUST BE ON MOD 4 BOUNDRY. 
: .WORD MBR 


— ae et Ls = 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


Nm 
SOOOn 


REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
= .+38177774 ;MUST BE ON A MODULE 4 BOUNDARY. 
:: .WORD RwD 
. WORD 1 
WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
MSGPKT:: .BLKW 7 : :: MESSAGE TYPE 
; 2ND 


:: DATA FIELD LENGTH. 
- RESIDUAL FRAME COUNT. 


:: XSTAT3 
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MESSAGE PACKETS. 
:: .BLKW 


GLOBAL AREAS MACY11 30(1046) 
CZTSHC.P11 


11-0CT=79 13:59 


:MESSAGE PACKET FOR DEVICE #0 
sMESSAGE PACKET FOR DEVICE #1 
sMESSAGE PACKET FOR DEVICE #2 
sMESSAGE PACKET FOR DEVICE #3 
SET CHARACTERISTIC BLOCK. 
:: MSGPKO 
0 


MSGCNT 
CH.EAI 


TSO4 REGISTER ADDRESSES. 
: .BLKW 4 


:: MSGPKT ADDR " UP BY EXCUTE ROUTINE). 
WORD:: MSGPKT ADDR 

:: MSG BUFFER LENGTH (BYTES) 

:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 


z8 :TSO4 DATA BUFFER ADDRESSES. 
:: .BLKW & [TS04 STATUS REGISTER ADDRESSES. 
:: .BLKW 4 [TS04 VECTOR ADDRESSES. 


ADDRESSES OF MESSAGE PACKETS. 
DEVICE 0 
DEVICE 1. 
DEVICE 2. 
:DEVICE 3. 
ADDRESSES OF INTERRUPT HANDLING ROUTINES. 


177774 


177777 


: TS4INO 


TS4IN1 
TS4IN2 
TS4INS 


7: © 
0 


DEVTBL:: 


BTADDR: : 


0 
0 


DEVICE 0. 
DEVICE 1. 
:DEVICE ¢° 


DEVICE 
TSO4 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 


;DEVICE 0 
:DEVICE 1 
:DEVICE 2 
:DEVICE 3 


UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 


WHEN DEVICE IS NOT IN USE, 
R5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 


NINUSE 
NINUSE 
NINUSE 
NINUSE 
END 


BAD TAPE TABLE POINTER: USED BY 
"WRTY'' TO LOG BAD TAPE SPOTS ON 


BTO 


IT,S LOCATION WILL = -3. 


WRITE RETRY ROUTINE 
UNITS UNDER TEST 
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595 002546 003046 
596 002550 003120 
597 002552 003172 
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COUNTER AREA, 


20 sBYTES WRITTEN. 

20 BYTES READ ab S 

20 :BYTES READ FWD. 

;RECOVERABLE WRITE ERRORS. 
;UNRECOVERABLE WRITE ERRORS. 
sRECOVERABLE READ REV ERRORS. 
sUNRECOVERABLE READ REV ERRORS. 
:RF Seton yd READ FWDERRORS. 


2 # « 


;UNIT 3 BAT TAPE SPOTS LOG 
WRITE RETRY COUNTER 
COUNT. 
SPECIAL CONDITION COUNT. 
[COUNT OF TSO4 DATA COMPARE ERRORS. 
; COUNT OF S 
COUNT OF L ERRORS. 
SEND OF STATICTICAL COUNTERS. 
[NUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
:AND WHEN RESTARTING OR CONTINUING TEST 2. 


SS HSHKHLHLHLSENMNNNLSLLSLSHSS 


RECCNT:: .BLKW 


: THE FOLLOWING ARE ag DEFINITIONS OF VARIABLES 
USED BY THE PROGRAM 


DATAWT:: .WORD ;WRITE BUFFER ADDRESS. 
33 ; READ 


: TEMP STORAGE FOR VALUE “OF N. 

;STORAGE FOR BPCR VALUE. 

: CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
;SAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
;CONTAINS PREVOUS COMMAND D. 


CURRENT COMMAND LOGGING CODE. 

;RANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
[RANDOM # GENERATOR BASE. 

RANDOM # SAVE LOCATION. 

:TIME COUNT 1. 

TIME COUNT 2. 

;JMP COMMAND LOOP COUNT. 

;JMP_COMMAND LOCATION COUNT. 

SPATTERN SELECT 


CODE. 
[CURRENT TERMINATION CLASS CODE. 
;LOCATiON FOR SAVING CURRENT DEVICE POINTER. 
; CURRENT STATUS REGISTER. 


elelelelelelela) 


TSSREG: : 
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ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
AFTER EACH COMMAND IS COMPLETED. 


# OF RECOVERY epor cari wy: ye 
; WRITE REPEAT ON SAME S CNTR: 4 PER WRITE RETRY 
WRITE RETRY ONS SAME SPOT IN PROGRESS FLAG 
;WRITE RETRY ute SAME SPOT ERROR FLAG 
;RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
;DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
;READ/WRITE ERROR HAS OCCURED 
[UNRECOVERABLE ERROR HAS OCCURED. 
ERROR RECOVERY MODE. 


lelelelelelelelelea) 


UNREC:: . 
ERRREC:: . 
ENDERF=.— 
: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 


INTFLG:: . arteot F OCCURRED FLAGS FOR EACH DEVICE. 
: EOT/ FLAGS FOR EACH DEVICE (XSTATO). 
[BAD TAPE SPOT POINTER TO BTO-8T3 VIA BTADDR 
;BOT IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
[RANDOM EVERYTHING FLAG. 
SET DURING WRITE/VERIFY COMMAND. 
[PERFORMANCE REPORT HAS BEEN REQUESTED. 
ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
; INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
; CURRENT UNIT HAS BEEN DROPPED 


4 
4 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


OT FLAG 
: DO ERASE AFTER A SPACE REV TO DELETE 
:BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
;A 3 TO 12 INCH GAP MAY RESULT. 


ERSFLG:: . 


003452 ENDFLG=.- 
: ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 


000 STAFLG:: START FLAG =~ SET BY INIT CODE IF STARTING. 
000 28 ;POWER FAILURE FLAG - SET ONLY DURING INIT. 
000 23 6 ;TRAPED AT 4 FLAG 

000 i3 ;MISCELLANEOUS FLAG 


OPERATOR FLAG SETTINGS PASSED BY DIAG. ae IN A 16 BIT WORD 
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIS 


003456 000000 TF — 0 ;READ ONLY OPERATOR FLAG WORD 
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3; THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 


CMDSEQ:: . SET CHARACTERISTICS. 
WORD . 


-WORD OQ 
CMDSE2:: . ;REWIND. 
i ;BYTE COUNT. 


sONCE. 

; PATTERN. 

sWRITE. 

sMAX ares niga 


232,000 RECORDS. 
: RANDOM PATTERN. 
READ 


REV. 
;MAX BUFFER LENGTH. 
732,000 RECORDS 
[RANDOM PATTERN. 


READ FWD. 
MAX BUFFER LENGTH. 


332,000 metas 
:RANDOM PATTERN. 


: ERN. 
;EXTENSTION TO HOLD 1 MORE CMD. 


-BLKW 4 
SEQEND:: . SOFT END OF SEQUENCE TABLE. 
. WORD 


003556 ° 
003560 177777 . HARD END OF SEQUENCE TABLE. 
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ew ; THE FOLLOWING IS THE TSO4 COMMAND TABLE 
732 003562 100013 CMDTBL:: .WORD DRI :DRIVE INIT. 
733 0035 104001 «WORD RDF ;READ FORWARD. 
34 0035 104401 «WORD RDR [READ REVERSE. 
735 003570 104005 «WORD WRT WRITE 
736 003572 104105 «WORD WTV [WRITE/VERIFY. (WRITE ALL RECORDS, RDR AND 
737 [CHECK DATA ON ALL RECORDS, RDF AND 
738 >CHECK DATA ON ALL RECORDS.) 
739 003574 104010 «WORD SRF s SPACE ‘N'' RECORDS FORWARD. 
740 003576 104410 -WORD SRR SPACE ‘N'' RECORDS REVERSE. 
741 QO 105401 «WORD RNR READ NEXT REVERSE. I.£., SPACE FWD, READ REVERSE. 
742 003602 125401 -WORD RNF SREAD NEXT Avy 1.£., READ FORWARD, SPACE REVERSE. 
743 003604 105001 -WORD  RPF READ PREVIOUS FORWARD. 1.£., SPACE REVERSE, READ FORWAR 
744 «00 125001 «WORD RPR READ PREVIOUS REVERSE. I.£., READ REVERSE, SPACE FORWAR 
745 003610 105005 -WORD WRR ;WRITE RETRY. 
746 003612 102010 -WORD RwWD ;REWIND 
747 003614 100012 -WORD MBR ;MESSAGE BUFFER RELEASE 
748 003616 100011 -WORD WIM WRITE TAPE MARK 
749 0036 101011 «WORD WIR WRITE TAPE MARK RETRY. 
750 003622 105010 «WORD SFF :SPACE ‘N'' FILES FORWARD. 
751 003624 105410 «WORD SFR :SPACE ‘N'' FILES REVERSE. 
752 003626 100017 «WORD GES GET EXTENDED STATUS. 
753 0036 100411 «WORD ERS ZERASE 3 INCHES OF TAPE. 
754 003632 100412 «WORD UNL REWIND AND UNLOAD. 
755 0036 101012 «WORD CLN :CLEAR TAPE. 
756 003636 140004 «WORD SCH SET CHARACTERISTICS. 
757 003640 100006 «WORD DIA :DIAGNOST IC_ COMMAND. 
758 003642 000040 -WORD JMP > JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
759 003644 000020 «WORD ODLY [DELAY ‘N'' MS. 
760 003646 177777 «WORD END END OF COMMAND TABLE 
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H THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
CMDASC:: .ASCII /DRI/ DRIVE INIT. 

ASCII / ;READ FORWARD. 
;READ REVERSE. 


WRITE 
;WRITE/VERIFY. (WRITE ALL RECORDS, RDR AND CHECK DATA 
Rg BE a DATA ON ALL RECORDS.) 


oO 
aR 
mM WW 
athehteicivichaba aad adaad 
CRN URSIN Mmronrwo— 


MEMNO 


Ww 
Arn Arnrwole— 


ORWARD, I.E., READ FORWARD, SPACE REVERSE. 
VIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
WRITE RETRY. REVERSE. IE., READ REVERSE, SPACE FORWARD 


;REWIND. 

;MESSAGE BUFFER RELEASE 
WRITE TAPE MARK 

WRITE TAPE MARK RETRY. 

ae "N'' FILES FORWARD. 
SPACE ‘N’’ FILES nee 


:GET EXTENDED STATUS 
sERASE 3 INCHES OF TAPE. 
REWIND AND UNLOAD 


sees TAPE. 
T CHARACTERISTICS. WHERE BRF=200, 40, 20, 0. 
1/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION 
S04 PROGRAMMING SPECIFICATION 
MUST BE USED TO LOAD DIAGNOSTIC D 


o Oo 
ee 


I ODT 
INTO THE eg | {BUFFER -_ THIS CMD IS ISSUED. 
;JUMP_TO THE NTH COMMAND IN THE COMMAND 

4 ae yj Toate HERE N IS DEFINED IN 


ONS 
054514 . ; WHERE N IS DEFINED IN 
: RATIONS. 


047105 104 , [END OF COMMAND SEQUENCE. 
003772 . 





GLOBAL AREAS MACY11 30(1046) 11-OCT-79 14:02 PAGE 26 
CZTSHC.P11 11-OCT-79 13:59 GLOBAL TEXT SECTION 


-SBTTL GLOBAL TEXT SECTION 


de 

; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED 'N 

; MORE THAN ONE TEST. 


: FORMAT STATEMENTS USED IN PRINT CALLS 


-NLIST BEX 
047045 040445 047125 CODELM:: fan” /ENZAUNIT %D1%A TS11 CODE LEVEL P%O3%NZN/ 


054130 020130 046503 im /XXX CMD = TYPE <CR> TO CONTINUE/ 
Reever 0201 040520 33. /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD! / 


-EVE 
040504 o8 /DATA_ COMPARE ERROR/ 
:: .ASCIZ /NO TS11 RESPONSE/ 
/UNDEF INED SPEC COND/ 
/RFC_NON a 7 


/TS11 NOT READ 
/RETRY Tat! EXCEEDED/ 
/UNIT_ OFF LINE/ 

/FUNCTION REJECT/ 

/FATAL_SUBSYSTEM ERROR/ 
/NO_INTERRUPT/ 

/TAPE_ STATUS oy ae 

/TOO MANY INTERRUPTS 

/CAPSTAN RUNAWAY GET. STATUS RESULTS:/ 
/RECOVERABLE ERROR 

/UNRE COVERABLE 


/2N %N2N/ 
*"INZABY TE : 2D42S2ZAWAS : IBBXS2%AS/B: LBBIN'' 
*ZD42%A eres IN ERROR OUT OF %D4ZN"' 
/%ANO DAT to 
TEARECORD” TOO L >%04%A BYTESZN/ 

: /ZARE COVERED ON ORETRY H#ID2EN/ 

2: /%ZAUNIT %D1%A OFF LINE%N/ 

052105 :: .ASCIZ A sya STATUS CMD RESULTS:%N/ 


000116 
051445 000067 CRLF SP: : 





N 5 
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ate -SBTTL GLOBAL ERROR REPORT SECTION 
819 3¢ 
820 ; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
821 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
Ha : THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 
824 
825 
826 005224 BGNMSG DTAERM 
827 005224 DTAERM: : 
828 005224 PRINTB #STAER1,DEVTBL(RS) ,PASCNT (RS) ,RECCNT (RS) 
829 005224 016546 003324 MOV RECCNT (RS) ,=(SP) 
830 005230 016546 003254 MOV PASCNT(R5) ,-(SP) 
831 005234 016546 002532 MOV DEVTBL (RS) ,-(SP) 
832 005240 012746 005704 MOV #STAER1,-(SP) 
833 005244 012746 000004 MOV #4 ,-(SP) 
834 005250 010600 MOV SP,RO 
835 005252 104414 TRAP C$PNTB 
836 005254 062706 000012 ADD #12,SP 
837 005260 PRINTB #STAER7 
838 005260 012746 005776 MOV #STAER7 ,-(SP) 
839 005264 4 2746 000001 MOV #i,-(SP) 
840 005270 010600 MOV SP,RO 
841 005272 104414 TRAP CS$PNTB 
842 005274 062706 000004 ADD #4,SP 
843 005300 LET RECRED := R2 ;SAVE R2 
844 005300 010237 006312 i MOV R2,RECRED 
845 005304 LET TIME1 := R3 SAVE R3 
846 005304 010337 003364 MOV R3,TIME1 
847 005310 LET TIME2 := R4 SAVE R4 
848 005310 010437 003366 MOV R4,TIME2 
849 005314 004737 006346 JSR PC,RECTAP ;RETRIEVE RECORD READ 
850 005320 LET R2 := RECRED sRESTORE R2 
851 005320 013702 006312 . MOV RECRED,.R2 
852 005324 LET RECRED := R3 :SAVE RECORD READ 
853 005324 010337 006312 MOV R3,RECRED 
854 005330 LET R3 := TIME1 sRESTORE R353 
855 005330 013703 003364 ‘ MOV TIME1,R3 
856 005334 LET R4 := TIME2 RESTORE R4 
857 005334 013704 003366 MOV TIME2 .R4 
858 005340 PRINTB #STAER6,RECRED zPRINT RECORD READ 
859 005340 013746 006312 MOV RECRED,-(SP) 
860 005344 012746 006026 MOV #STAER6,-(SP) 
861 tht piece 000002 a #2,-(SP) 
863 005356 104414 TRAP CSPNTB 
864 5 06271 000006 ADD #6,SP 
865 005364 EXIT MSG 
866 005364 000167 . WORD JMP 
867 005366 «WORD 110002-2- 
868 EVEN 
869 
870 005370 ENDMSG 
871 005370 L10002: 


872 005370 104423 TRAP C$MSG 


B 6 
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BGNMSG STAERM 


WSTAER1 ,DEVTBL (RS) ,PASCNT (RS) ,RECCNT (RS) 
016546 RECCNT(RS) ,=(SP) 
MOV PASCNT (R5) .=(SP) 
DEVTBL (R5) .-(SP) 
#STAER1,-(SP) 
#4 ,~(SP5 
P-RO 


ASTAER7 
012746 #STAER7,-(SP) 
012746 00000 #1,-(SP5 
010600 P’RO 


SP, 
104414 CSPNTB 


062706 
LET R2 := CMDPKT CLR.BY #177740 
013702 310 MOV CMDPKT ,R2 
177740 #177740,R2 


LET R2 := R2 - #1 a2 
If Re EQ #0 THEN :1F CMD IS A READ R2 


50000$ 
JSR PC,RECTAP : THEN RETRIEVE 
LET RECRED := R3 7 AND 
010337 R3,RECRED 
PRINTB #STAER6,RECRED : TYPE RECORD READ 
013746 RECRED ,-(SP) 
012 006026 Hees 27 (SP) 


P,RO 
ve 
ENDIF ‘ 


PRINTX #STAER2 
#STAER2,-(SP) 
#1,-(SP5 
RO 


SP, 
CSPNTX 
#4 ,SP 


CTCC,-(SP) 
TSSREG, ~(SP) 
MSGPKT+MS .RFC,-( 
@TSDB(RS) .-(SP) 
CMDPKT, -(SP) 
wSTAERS, -(SP) 

= (SPS 

SP“RO 


CSPNTX 
#16,SP 
PRINTX #STAERS,CMDPKT+2,CMDPKT+4 ,CMDPKT+6 





HS 
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013746 


104423 


054130 
051120 
030461 
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GLOBA: 
PRINTX 
EXIT 
-NLIST 
020130 STAER1: .ASCIZ 
053105 STAER7: .ASCIZ 
040445 STAER6: .ASCIZ 
046503 STAER2: .ASCIZ 
051445 STAER3: .ASCIZ 
047045 STAER4: .ASCII 
116 -ASCII 
047045 -ASCIZ 
052123 STAERS: .ASCII 
031123 -ASCIZ 
LIST 
-EVEN 
RECRED: .WORD 
ENDMSG 
L10003: 


C 6 


29 
ERROR REPORT SECTION 


MSG 


CMDPKT+6,~-(SP) 


3 
GPKT+MS .xS3,-( 


#14,SP 


JSJMP 
L10003-2-. 


BEX 
/%AAXX CMD FAILED = UNIT 2%D12S3ZAPASS : XD5%S3ZARECORD : XD52N/ 


/ZAPREVIOUS CMD WAS XXX/ 
/%S11ZA* RECORD READ: 2D52A * 

/INZACMOPKTZS22AT SBAZS4 ZARF CZSSEATSSRES3EATCCEN/ 
/%06%S2%206%S2%06%S2%06%S22D 1 2N/ 

/%062N/ 

/%062N/ 

/%062N/ 

/BAXSTOZS4XAXST12S4 ZAKS T2%ZS42AXST3EN/ 

an aaarnenaacee ncaa: 


0 RECORD READ FROM TAPE 


TRAP 


CSMSG 
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-SBTTL GLOBAL SUBROUTINES SECTION 


THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
: THAT ARE USED IN MORE THAN ONE TEST. 


: MODULES TO HANDLE TSO4 INTERRUPTS. 


TS4INO BGNSRV TS4INO DEVICE 0. 
“"LET INTFLG := INTFLG + #1 SET INTERRUPT OCCURRED FLAG. 
INC INTFLG 
ENDSRV 


L10004: 
RTI 


oa BGNSRV TSGIN1 :DEVICE 1. 
"LET INTFLG+#2 := INTFLG+2 + #1  =SET INTERRUPT OCCURRED FLAG. 
INC INTFLG#2 
ENDSRV 


L10005: 
RTI 


TS6IN2 BGNSRV TS4IN2 DEVICE 2. 
“LET INTFLG+4 := INTFLG+4 + #1 ;SET INTERRUPT OCCURRED FLAG. 
INC INTFLG*4 
ENDSRV 


L 10006: 
RTI 


cou BGNSRV TS4IN3 :DEVICE 3. 
"LET INTFLG+6 := INTFLG+6 + #1  ;SET INTERRUPT OCCURRED FLAG. 


nesny INC INTFLG*6 
L10007: 
RTI 





saccsecsaggegeticties 


ob ahah ab ad ad od ad od 
DONAULSWN—O 


1019 


032737 
001430 
013702 
063702 
032702 
001417 


005202 


111203 
142703 


000303 
005302 


105737 
001401 


005302 


111204 
142704 


050403 
000401 


011203 


000402 


017703 


000207 
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oa antes TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


SIT 
BEQ 


MOV 
ADD 


BIT 
BEQ 


BICB 


DEC 


OUTPUTS: R3 = RECORD COUNT READ 
REGISTERS: R2, R3, Ré 
CALLS: 
RECTAP::IF #MOD.CO SETIN CMDWRD THEN  ; READ REV FETCH 
000400 003346 
LET R2 := MSGPKT+MS.RFC + DATARD ;:FIND LAST READ AD. 
002340 
003336 
IF #BITOO SETIN R2 THEN :0DD AD., REASSEMBLE 
000001 
LET R2 := R2 + #1 :REC COUNT STARTING ae 
LET R3 :B= (R2) CLR.BY #177400 ;WITH UPPER BYTE FETCH 
177400 
LET R3 := SWAP R3 5 
LET R2 := R2 - #1 sLOWER BYTE AD. 
IFB SWBFLG NE #0 THEN 
003444 
LET R2 := R2 - #1 ;LOWER BYTE AD. ON SWAP 
ENDIF 
500038 
LET R4 :B= (R2) CLR.BY #177400 :FETCH LOWER BYTE 
177600 
LET R3 := R3 OR RG :MERGE BYTES 
ELSE 
50002$: 
LET R3 := (R2) SEVEN AD. FETCH 
ENDIF 
500048: 
ELSE 
50001$: 
LET R3 := @DATARD :READ FWD FETCH 
174670 
-_ ENDIF 
® 50005$: 
RTS PC 


rte St lente 


50001 


MSGPKT +MS .RFC ,R2 


DATARD ,R2 
#81T00,R2 
50002$ 

R2 

(R2) ,R3 
#177400 ,R3 
R3 

R2 


SWBF LG 
50003$ 


R2 


(R2) ,R4 
#177400,R4 


R4,R3 
50004$ 


(R2) ,R3 


50005$ 


@DATARD ,R3 
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SUBROUTINE TO STORE A_ SET CHARACTERISTIC COMMAND AS 
ante ENTRY IN THE SEQUENCE TABLE. 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: LET R1 := ACMDSEQ ; INIT COMMAND SEQUENCE TABLE POINTER. 
012701 MOV #CMDSEQ,?1 
ASCH, (R1)+ + THIS CODE SETS UP A SET Siang Sige ae 
ADF TSCH,(R1)+ ae peers AS THE FIRST COMMAND IN THE 
#1,(R1)+ ;SEQUENCE TABLE. 
(R1)+ [SKIP PATTERN LOCATION. 


os gta TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: LET (R1)+ : ;(MD = REWIND. 
012721 102010 MOV #RWD, (R1) + 
LET (R1)+ : ZBRF . 
012721 000001 MOV #1,(R1)+ 
LET (R1)+ : ;# OF OPERATIONS. 
012721 000001 MOV #1,(R1)+ 
005721 TST (R1)+ ;SKIP PATTERN. 
000207 RTS PC [RETURN 
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1083 : SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
1084 ; DEVICES. 
1085 : INPUTS: 
1086 : OUTPUTS: R2 = TERMINATION INDICATOR (O=END OF TABLE, 1=E0T) 
1087 : REGISTERS: 
i é CALLS: CMDAC, SETUP, EXSUB, CKHAE ,NEXTU,F IRSTU, VF YDAT. 
1090 006510 EXALL:: LET R1 := #CMDSEQ : INIT SEQUENCE TABLE POINTER. 
1091 006510 012701 003460 MOV #CMDSEQ,R1 
1092 006514 WHILE (R1) NE #END DO :WHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
1093 006514 50006$: 
1094 006514 021127 177777 CMP (R1) , #END 
1095 006520 001527 BEQ 50007$ 
10% 006522 004737 007452 JSR PC, SETU :GO SETUP THE COMMAND BLO 
1097 006526 WHILE NCNT LT NNT DO [WHILE THERE ARE RECORDS REMAINING: 
1098 006526 500108: 
1099 006526 023737 003340 003342 CMP NCNT,NCNT1 
1100 006534 002116 BGE 50011$ 
1101 006536 004737 007344 JSR PC,CMDAC :STORE CMD ASCII IN ERROR MESSAGE. 
1102 006542 IFB RANDOM NE #0 THEN ‘IF IN RANDOM MODE: 
1103 006542 105737 003441 TSTB RANDOM 
1104 006546 001435 BEQ 500128 
1105 006550 IF CMDWRD EQ #WRI THEN IF CMD IS A WRITE THEN: 
1106 006550 023727 003346 104005 CMP CMDWRD , #WRT 
1107 006556 001031 BNE 50013$ 
1108 006560 IFB VFYFLG EQ 40 THEN sIF DATA IS NOT TO BE VERIFIED THEN: 
1109 006560 105737 003442 TSTB.—s VF YFLG 
1110 006564 001026 BNE 50014$ 
1111 006566 LET RANB := RANB + RANS_-— ;GENERATE 
1112 006566 063737 003362 003360 ADD RANS , RANB 
1113 006574 LET RANS := RANS + RANB- ;RANDOM 
1114 006574 063737 003360 003362 ADD RANB , RANS 
1115 006602 LET BRFCNT := RANS ;LENGTH 
1116 006602 013737 003362 003344 MOV RANS. BRF CNT 
1117 006610 LET BRFCNT := BRFCNT CLR.BY LENMSK ;MASK RANDOM LENGTH 
1118 006610 043737 003356 003344 BIC LENMSK ,BRF CNT 
°1119 006616 IF BRFCNT LT 418. THEN ;DO NOT ALLOW BYTE COUNT OF LESS THAN 18 
1120 006616 023727 003344 000022 CMP BRF CNT, #18. 
1121 006624 002003 BGE 50015$ 
1122 006626 LET BRFCNT := 418. ;CHANGE COUNT OF 0-17 TO 18. 
1123 006626 012737 000022 003344 MOV #18. ,BRFCNT 
1124 006634 ENDIF 
1125 006634 50015$: 
1126 006634 LET CMDPKT+CP.CNT := BRFCNT ;MOVE BRF TO CMD PACKET. 
1127 006634 013737 003344 002316 MOV BRF CNT, CMDPKT+CP 
1128 006642 ENDIF 
1129 006642 50014$: 
1130 006642 ENDIF 
1131 006642 500138: 
1132 006642 ENDIF 
1133 006642 500128: 
1134 006642 004737 007004 JSR PC,EXSUB :ISSUE CMD TO ALL, AWAIT INTS .CHECK STATUS. 
1135 006646 004737 015724 JSR PC. CKHAE SCHECK HALT AFTER EACH CMD FLAG. 
1136 006652 LET Ro := #1 [SET ALL UNITS AT BOT/EOT. 
1137 006652 012702 000001 MOV #1,R2 
1138 006656 004737 015332 JSR PC,FIRSTU :FIND FIRST UNIT. 
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1139 006662 WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE UNITS: 
1140 006662 50016$: 
1141 006662 026527 002532 177777 CMP DEVTBL(R5) ,#END 
1142 006670 001426 BEQ 50017$ 
1143 006 7 IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
1144 006672 032737 000400 003346 BIT #MOD. CO, CMDWRD 
1145 006700 001406 BEQ 50020$ 
1146 006702 IF #X0.BOT NOTSETIN EOTFLG(R5) THEN ;IF NOT AT BOT THEN: 
1147 006702 032765 000002 003426 BIT #X0.BOT,EOTFLG(R 
1148 006710 001001 BNE 21s 
1149 006712 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
1150 006712 005002 CLR R2 
1151 006714 ENDIF 
1152 006714 50021$: 
1153 006714 ELSE ELSE IF CMD IS NOT REVERSE: 
1154 006714 000411 BR 50022$ 
1155 006716 50020$: 
1156 006716 IF #XO.EOT NOTSETIN EOTFLG(R5) OR #CMD.CO NOTSETIN CMDWRD T 
1157 006716 032765 000001 003426 BIT #x0. EOT, EOTFLG(R 
1158 006724 001404 BEQ 50023$ 
1159 006726 032737 000001 003346 BIT #CMD.CO,CMDWRD 
1160 006734 001001 BNE 50024$ 
1161 006736 50023$: 
1162 IF NOT AT EOT OR NOT A MOTION CMD THEN: 
1163 006736 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
1164 006736 005002 CLR R2 
1165 006740 ENDIF 
1166 006740 50024$: 
1167 006740 ENDIF 
1168 006740 50022$: 
1169 006740 004737 015400 JSR PC,NEXTU FIND NEXT UNIT 
1170 006744 ENDDO : : 
1171 006744 000746 BR 50016$ 
1172 006746 50017$: 
1173 006746 IF R2 EQ #1 THEN ;1F ALL UNIT ARE AT EOT/BOT THEN: 
1174 006746 020227 000001 CMP Re ,#1 
1175 006752 001001 BNE 50025$ 
1176 006754 000412 BR EXARTN ;RETURN WITH R2 = 
1177 006756 ENDIF 
1178 006756 50025$: 
1179 006756 LET NCNT := NCNT + #1 UPDATE RECORD COUNT. 
1180 006756 005237 003340 ' NCNT 
1181 006762 LET PCMDWD := CMDWRD SAVE PREVIOUS COMMAND WURD. 
1182 006762 013737 003346 003352 MOV CMDWRD , PCMDWD 
1183 006770 ENDDO 
1184 006770 000656 BR 50010$ 
1185 006772 50011$: 
1186 006772 004737 014316 JSR PC, VFYDAT :1F LAST CMD WAS A WRITE VERIFY, THEN GO 
1187 ; VERIFY THE LAST N RECORDS OF DATA, 
1188 006776 ENDDO 
1189 006776 000646 BR 50006$ 
1190 007000 50007$: 
1191 007000 LET R2 := #0 ;SET NORMAL RETURN INDICATOR. 
1192 007000 005002 CLR R2 
ie? 007002 000207 EXARTN: RTS PC ;RETURN. 
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SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
we AND CHECK ALL STATUS. 


BLE 


RLS3 


OUTPUTS: 
REGISTERS: 
CALLS: 


EXCUTE ,GOWAIT ,NEXTU,F IRSTU. 


004737 015332 33 JSR PC,FIRSTU ;SET UP FOR FIRST UNIT. 
WHILE DEVTBL(RS) NE #END DO :WHILE THERE ee 


026527 002532 177777 CMP DEVTBL (R5) ,#END 
001465 50027$ 


BEQ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003346 BIT #MOD . CO, CMDWRD 
001421 BEQ 50030$ 
IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
032765 000002 003426 BIT Seeate” Ore 


001014 BNE 

IF #XO.EOT SETIN EOTFLG(RS) THEN ;BUT IF AT EOT 
032765 000001 003426 BIT #X0.EOT EOTFLG(R 
001406 50032$ 


BEQ 
IFB ALLEOT NE 40 THEN AND ALL OTHERS AT EOT 
105737 003450 TSTB ALLEOT 


BEQ 50033$ 
010326 JSR PC,EXCUTE : THEN EXECUTE REV CMD 
ENDIF :I1F NOT A Shbsss: EOT, FREEZE UNIT(S) AT EO 


500 
ELSE IF NOT AT BOT AND 


MMV o-s 
S338 


ek kk kd ak td 8 ot od ot I oo as 
Mn 
Ses 
N 


POMINMNMNMNNoNNofry 
aod aad anh aad cal cn cl ac ced eld 
WODBNAUSWN—O 


50034$ 
50032$: 
010326 RI a tei sNOT AT EOT, EXEC REV CMD 


50034$: 
ENDIF 


50031$: 
ELSE sELSE IF CMD IS NOT REVERSE: 
BR 50035$ 


50030$: 
IF CMDLG EQ #2 AND #X0.BOT SETIN EOTFLG(RS) THEN 
023727 003354 000002 CMP CMDLG ,#2 
001011 BNE 50036$ 
Bae / 62 000002 003426 BIT #xX0.BOT .EOTFLG(R 


BEQ 
:CLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 
LET BIPT := BTADDR(RS) 
016537 002544 003436 MOV BTADDR(RS) ,BIPT 
LET @BTPT := #0 
005077 174312 CLR @aBIPT 
ENDIF 


50036$: 
IF #XO.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
032765 000001 003426 BIT #X0.EOT ,EOTFLG(R 
001404 BEQ 50037$ 
032737 000001 003346 BIT #CMD.CO,CMDWRD 
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010326 
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BNE 


50040$ 


50037$: 
IF NOT AT EOT OR NOT A MOTION CMD THEN: 


JSR PC,EXCUTE 
LSE 


IFB ALLEOT NE #0 THEN 
JSR PC, EXCUTE 
ENDIF 


ENDIF 
ENDIF 


JSR 
ENDDO 


PC,NEXTU 


IFB RPTFLG NE #0 THEN 


; ISSUE CMD TO TS04 


BR 
50040$: 


TSTB 

BEQ 
50042$: 
50041$: 


50035$: 
;FIND NEXT UNIT IN TEST CYCLE. 


BR 


50041$ 


ALLEOT 
50042$ 


50026$ 


50027$: 
: IF REPORT HAS BEEN REQUESTED THEN: 


TSTB 
BEQ 


RPTFLG 
50043$ 


LET RPTFLG :B= #0 
DORPT 
ENDIF 


JSR PC,FIRSTU ;SET UP FOR FIRST UNIT. 
WHILE DEVTBL(RS) NE #END DO :WHILE THERE ARE MORE DEVICES: 


177777 CMP 
001450 BEQ 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003346 BIT #MOD . CO. CMDWRD 
001421 BEQ 50046$ 


IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT Ai BOT 
032765 000002 003426 BIT #X0.BOT ,EOTFLG(R 
001014 0047$ 


032765 
001406 


;CLR THE FLAG, 
CLRB 
zPRINT THE PERFORMANCE REPORT. 
TRAP 


105037 
104424 


003443 RPTFLG 


CS$DRPT 
004737 015332 


026527 002532 DEVTBL (RS) ,#END 
50045$ 


IF #XO0.EOT SETIN EOTFLG(R5) THEN 


BNE 
;BUT IF AT EOT 
BIT 


000001 003426 #X0.EOT ,EOTFLG(R 
IFB ALLEOT NE #0 THEN AND ALL OTHERS ats 
105737 003450 : TSTB. Ss AL 
BEQ 00 
010636 : THEN WAIT FOR CMD END 
“IF NOT ALL AT EOT, DO NOT WAIT 


JSR PC,GOWAIT 
ENDIF 
50051 
AND NOT AT EOT 
50052$ 


:NOT AT BOT, 


50050$: 
zsWAIT FOR INT, CHECK STAT 


50052$: 


ELSE 


010636 JSR PC, GOWAIT 
ENDIF 


SSR ESSSSSSISE 
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ENDIF 
50047$: 
ELSE sELSE 1F CMD IS FORWARD: 
000420 BR 50053$ 


50046$: 
IF #XO.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
he 000001 003426 BIT #X0.EOT ,EOTFLG(R 
1404 BEQ 50054$ 
032737 000001 003346 BIT #CMD. CO, CMDWRD 
001003 BNE 50055$ 


50054$: 
IF NOT AT EOT OR NOT A MCTION CMD THEN: 
004737 010636 aur PC ,GOWAIT ;WAIT FOR INT,CHECK STATUS. 


000405 BR 50056$ 
50055$: 


WANWWAWWAWWNAW 


at os ts 
Nm 


M—OOONAOUSWN oO 


Ww 


IFB ALLEOT NE 40 THEN 
105737 003450 ALLEOT 
001402 E 5005 7$ 
004737 010636 ae PC ,GOWAIT 


50057$: 
50056$: 


ENDIF 
ENDIF 


50053$: 
015400 edea PC ,NEXTU :FIND NEXT UNIT IN TEST CYCLE. 


BR 
50045$: 
RTS PC RETURN. 
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111337 
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000002 
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. ON ENTRY LOCATION CMDWRD 


THIS eg by STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. 
NeuTee CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 


CMDWRD ,R4 


PCMDWD ,R4 


(R3)+,STAER7+24 
(R3)+,STAER7+25 
(R3) , STAER7+26 


QUTPUTS: 
REGISTERS: R3, R4. 
CALLS: GCMDA 
CMDAC:: LET R4 := CMDWRD :R4 = CMD BINARY. a 
V 
JSR PC,GCMDA :GET CMD ASCII. 
MOVB (R83) +, STAER1+2 :MOVE CMD ASCII 
MOVB = (R3) +, STAER1+3 
MOVB _— (R3), STAER1+4 ‘INTO MSG. 
LET RG := PCMDWD [R4 = PREVIOUS CMD BINARY . 
V 
JSR PC,GCMDA :GET CMD ASCII. 
LET STAER7+24 :B= (R3)+ SMOVE CMD ASCII cad 
LET STAER7+25 :B= (R3)+ 
MOVB 
LET STAER7+26 :B= (R3) : INTO MSG. aed 
RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 
; SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 
: ADDRESS OF ASCII 1ST WORD IS RETURNED IN R3. 
: INPUTS: R4 = PRESENT COMMAND WORD. 
: OUTPUTS: R3 = ADDRESS OF PRESENT COMMAND ASCII. 
: REGISTERS: 
: CALLS: 
GCMDA:: LET R3 := #0 :INIT CMD TBL POINTER. 


WHILE CMDTBL(R3) NE R4 DO 


LET R3 := R3 + #2 
ENDDO 
LET R4 := R3 

" LET R3 := R3 SHIFT -1 

NOP 
ADD R4,R3 
ADD #CMDASC.R3 
RTS PC 


CLR 
:UNTIL CURRENT CMD IS FOUND: 
50060$ : 
CMP 
BEQ 
SEARCH CMD TABLE. 
ADD 
BR 
50061$: 


MOV 
:POINT TO ASCII FOR seaman tama 


;RETURN. 


R3 
CMDTBL (R3) ,R4 
50061$ 


#2,R3 
50060$ 


R3,R4 
R3 
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023727 
001003 
012737 
010203 
013737 
032737 
001404 
012737 


000403 


012737 


2310 
177740 
000010 
002312 
002310 
090002 
000001 


003336 
000400 


000004 


100011 


003354 


002312 
002310 


003354 


002312 
002316 


THIS SUBROUTINE LOADS THE TSO4 COMMAND PACKET FROM ONE 


ENTRY IN THE SEQUENCE TABLE. 
INPUTS: 


ase R3. 


OUTPUTS: 
REGISTERS: 
CALLS: GENPAT. 


:: LET CMDLG := 


(R1)+,CMDPKT 

(R1), CMDPKT+CP. CNT 
(R1) ,BRFCNT 
CMDPKT ,R2 
#NCMD.C,R2 

R2,R 

oe .cam 

(R1) ,CMDPKT+2 

3$ 


BR 
IF CMDPKT EQ #WTM THEN 


LET CMDLG := #2 


R2,R3 
A#CMD.CO,R3 
1$ 


MOV DATARD , CMDPKT+CP.ADL 
IF #MOD.CO SETIN CMDPKT THEN 


LET CMDLG := #4 
ELSE 


LET CMDLG : 


R2,R3 

#CMD.C2,R3 

4$ 
CMDPKT+CP.ADL := 


#SCHBK 


SSCHENT CMDPKT+CP.CNT 
SCHBK+6 := (R1) 


R2,R3 
#CMD.C1!CMD.C2,R3 
A#DIACNT ,CMDPKT+CP.CNT 


:IF CMD IS A WRITE TAPE a THEN: 


MOV 
sELSE - IF CMD IS A READ FWD: 


CLR CMD LOGGING a ety 


;LOAD THE COMMAND WORD. 
;LOAD THE BYTE/RECORD/FILE COUNT. 


: SAVE BRF FOR THIS COMMAND. 
CLR ALL BUT CMD BITS. 


SAVE _IT T 
;POSITION COMMAND? 


BR IF NOT. 
:MOVE BRCR IN 2ND PKT WORD FOR POSITION CMD. 
CMDPKT ,4WTM 
BNE 50062$ 
zWIM LOGGING CODE IS 2. 
MOV #2,CMDLG 


50062$: 


AD THE BUFFER ADDR. 
A READ REV THEN: 

BIT MOD. CO, CMDPKT 
50063$ 


LOGGING CODE IS 4. 
#4 ,CMDLG 


50064$ 


50063$ 
LOGGING CODE IS 6. 
MOV #6,CMDLG 


50064$: 
7 CONTINUE. 


21S IT 
ZA ig 3 CHARACTERISTICS CMD? 
SET ff ADR LO FOR SET CHAR. 
SET BUFFER EXTENT 
STORE CHARACTERISTIC CODE IN SCH BLOCK. 
MOV (R1) , SCHBK+6 
TIME, 
A DIAGNOSTIC (DIA) CMD? 
:BR IF NOT. 
[LOAD BUFFER EXTENT. 


MOV #SCHBK , CMDPKT+CP 
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012737 
005721 


012137 


012737 
032737 
001407 
112737 
042737 
00402 


105037 


013737 
013737 


105737 
001403 


052737 


042737 


013737 
000207 


003334 


003342 


003340 
003374 


000005 


003334 
010030 


000002 
000100 


000001 
000100 


003442 


003346 
002310 
003444 


010000 


004000 
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002312 


002312 


003354 
002310 


003442 
002310 


003352 
003346 


002310 


002310 
003350 


0 
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v #DIABLK ,CMDPKT+CP.ADL 
+ 
NCNT1 := (R1)+4 
NCNT := #0 
(R1) + ,PATERN 
#CMD.CO!CMD.C2.R3 
DATAWT, CMDPKT+CP. ADL 
JSR PC, GENPAT 
LET CMDLG : 


IF AVFY.C SETIN CMDPKT THEN 


LET VFYFLG :B= #1 
BIC #VFY.C,CMDPKT 
ELSE 


LET VFYFLG :B= #0 
ENDIF 
LET PCMDWD := CMDWRD 
LET CMDWRD := CMDPKT 
IFB SWBFLG NE #0 THEN 


LET CMDPKT := 
ENDIF 


BIC ABRF .C, CMDPKT 
LET CMDSAV := CMDPKT 


RTS PC 


CMDPKT SET.BY #SWB.C 


50067$: 
:CLR BRF BIT (INTERNAL ONLY). 
:SAVE 1ST WORD OF we ee 


RETURN. 


;LOAD BUFFER ADR LOW. 
;POINT TON (NUMBER OF TIMES TO EXECUTE THIS INS 
SAVE NUMBER OF OPERATIONS 

MOV (R1)+,NCNT1 
CLEAR OPERATION COUNTER. 

CLR NCNT 
4° ig patos CODE FOR CURRENT CMD. 
7A WRITE? 

: F NOT. 

;LOAD WRITE BUFFER LO ORDER. 

:GO GENERATE THE WRITE PATTERN. 
[WRITE LOGGING CODE IS _ 

IF DATA VERIFICATION a aaeatear 


BEQ 


We, CMDLG 
#VFEY.C,CMDPKT 
50065$" 

SET VERIFY FLAG. 
#1,VFYFLG 


MOVB 
;CLEAR VERIFY BIT(NOT USED BY HARDWARE). 
:1F DATA VERIFICATION IS NOT aria | os 


0065$: 
CLRB 


5 
:CLR VERIFY FLAG. 
VFYFLG 


50066$ : 
SAVE PREVIOUS CMD WORD. 
MOV CMDWRD , PCMDWD 
SAVE PRESENT CMD WORD. 
MOV CMDPKT , CMDWRD 
:1F SWAP BYTES IS ENABLED: 
TSTB SWBFLG 
50067$ 


BEQ 
SET SWAP BIT IN COMMAND. 
BIS #SWB.C,CMDPKT 


‘ 


CMDPKT , CMDSAV 





GLOBAL AREA 
CZTSHC P11 


1501 


Seleoraess 


MW 


ed aed ed cd aed ced ced nd ed eed 
WONAUSWN—O 


SVS P NSS 


DAA AD AA AA AAAI 
VSVRRRALRL 


MIMI UT) 


x 


ce ae ce ee ce ed ced eed ee ce ce ee ce ee ca a ee ee cc dd ce ee cd ce ee ed ce ee eed ee eed eed eed ee ee 
WINN WAW 


FEL 
&* 


S 


lelelelelelelolelol-lo-lololo) 

— ed et os od os os = od =o — 
oooo 

RRRRARR VV — 
ROSANSKKSSRRRSSER 


MACY11 30(1046) 


11-OCT-79 13:59 


013703 
006303 
013704 
005204 
042704 


162704 
013702 
702 


010324 


012703 
162704 
100411 


010322 
062703 
BiH 
012703 


000764 


003374 
003344 


000001 
000002 
003334 
000002 
010072 


000400 
000002 


001002 
001000 


000400 
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GLOBAL 


GENPAT: 


PATTBL: 


PATRO:: 
1$: 


B 7 
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THIS SUBROUTINE SETS UP_AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
Hs a PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2, R3, R4. 
CALLS: PATRO = PATR7 
: LET R3 := PATERN SHIFT 1 SETUP PATTERN ROUTINE POINTER 
MOV PATERN,R3 
ASL R3 
LET R4 := BRFECNT + #1 ;SET LENGTH OF WRITE BFR 
MOV BRF CNT ,R4 
INC R4 
LET R& := R4 CLR.BY #1 ;ROUNDED UP TO NEXT WORD alc na 
LET R4 := R4 = #2 ;WITH FIRST WORD RESERVED 
SUB #2,R4 
LET R2 := DATAWT + #2 ;FOR RECORD COUNT 


MOV yy -R2 


ADD , 
JSR PC,@PATTBL(R3) ;GO GENERATE THE APPROPRIATE PATTERN. 
RTS PC RETURN TO SETUP SUBROUTINE. 


3TSO04 WRITE PATTERN LOOKUP TABLE. USED TO JSR 10 THF 
CORRECT DATA PATTERN GENERATING ROUTINE. 


PATRO 
PATR1 


; INCREMENTING PATTERN. 0 - 377. 


LET R3 := #400 

MOV #400 ,R3 
LET R4 := RG = #2 ;DECREMENT WORD COUNT. 

SUB #2,R4 
BMI 2$ ;BR IF DONE. 
LET (R2)+ := R3 ;STORE DATA WORD. 


MOV R3,(R2)+ 
LET R3 := R3 + #1002 UPDATE PATTERN. 


ADD #1002,R3 
IF R3 EQ #1000 THEN ; IF PATTERN HAS WRAPPED AROUND THEN: 
CMP R3,#1000 
500708 
LET R3 := #400 ; INIT THE PATTERN AGAIN. 
MOV #400,R3 
ENDIF 


500708: 
BR 1$ ;DO IT AGAIN. 
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010150 000207 : RTS PC ; RETURN. 
sALL ONE'S PATTERN. 


010152 012703 177777 :: MOV #-1,R3 sALL_ONES PATTERN;. 
: LET RG := RG = #2 ;DECREMENT BYTE COUNT. 
162704 000002 SUB 
100402 BMI 1$ ;DONE?,BR IF YES. 
010322 MOV R3,(R2)+ IF NOT LOAD NEXT BYTE WITH PATTERN. 
000773 BR ZROPAT [D0 IT AGAIN. 


010170 000207 : RTS PC ;RETURN. 


ree 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RALRANLS 
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1222 ;ALL ZEROES PATTERN. 
1859 010172 005003 PATR2:: CLR R3 ;CLR PATTERN REGISTER. 
1560 010176 004737 010156 JSR PC, ZROPAT :GO GENERATE IT. 
1561 010 000207 RTS PC RETURN 
1568 ;ONE BIT WALKING FROM R TO L INA FIELD OF ZEROES. 
1565 010202 012703 000401 PATR3:: MOV #401,R3 s INIT PATTERN REGISTER. 
1566 010206 WLKZRO: LET R4 := RG = #2 DE CREMENT WORD COUNT. 
1567 010206 162704 00002 SUB #2.RG 
1568 010212 100404 BMI! 1$ ;BR IF DONE. 
1569 010214 010322 MOV R3, (R2)+ ‘LOAD DATA. 
1570 010216 006303 ASL R3 ; SHIFT PATTERN 
1571 010220 005503 ADC R3 ‘ADD CARRY BACK INTO PATTERN. 
1572 010222 000771 BR WLKZRO 3D0 IT AGAIN 
1578 010224 000207 1$: RTS PC RETURN. 
1323 ;ZERO BIT WALKING FROM R TO L INA FIELD OF 1'S. 
1577 010226 012703 177376 PATR4:: MOV #177376,R3 :INIT PATTERN REGISTER. 
1578 010232 004737 010206 JSR PC ,WLKZRO [GO GENERATE ;IT. 
iF 010236 000207 RTS PC ;RETURN. 
1581 ;ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
lene ; COMPLEMENTED. 
1584 010240 012703 125125 PATRS:: MOV #125125,R3 ; INIT PATTERN —— 
1585 010244 004737 010156 JSR PC, ZROPAT :GO GENERATE IT 
1586 010250 000207 RTS PC [RETURN 
i ;ALTERNATING BYTES OF 000 AND 377. 
15 010252 012703 177400 PATR6:: MOV #177400. R3 : INIT PATTERN REGISTER. 
1591 010256 1$: LET RG := RG = #2 =DECREMENT WORD COUNT. 
1592 010256 162704 000002 SUB #2,R4 
1593 010262 100402 BMI 2$ ;BR IF DONE. 
1594 010264 010322 MOV R3, (R2)+ [LOAD DATA. 
1595 010266 000773 BR 1$ ‘DO IT AGAIN 
159% 010270 000207 2s: RTS PC *RETURN. 
Fa 4 ;RANDOM PATTERN GENERATOR 
1600 010272 PATR7:: LET RG := R4& = #2 ;DECREMENT WORD COUNT 
1601 010272 162704 000002 SUB #2..R4 
1602 010276 100411 BMI GIT :BR IF DONE. 
1603 010300 063737 003362 003360 ADD RANS , RANB 
1604 010306 063737 003360 003362 ADD RANB . RANS :GET NEW #. 
1605 010314 013722 003362 MOV RANS. (R2)+ *SAVE #. 
1606 010320 000764 BR PATR? * CONT INUE 
1607 010322 000207 cif: afs PC RETURN 
yf 3 NO PATTERN GENERATION. 
1611 010324 000207 PATR8:: RTS PC RETURN. 
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1612 ; THIS SUBROUTINE ane eshane it agg COMMAND EXECUTION 
1613 ; INeus: FOR TSO4 RESPON 


OUTPUTS 
REGISTERS: R2, R3. 
CALLS: DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 


010326 :: LET TIME1 := #1 INIT TIMEOUT COUNTER. 
012737 177777 003364 MO #-1,TIME1 
REPEAT WAIT - 


50071$: 

LET TIME1 := TIME] — #1 ;UPDATE TIMEOUT COUNTER. 

005337 003364 DEC TIME1 
IF TIME1 EQ #0 THEN ;I1F TIMED OUT: 

003364 TST 


BNE 
011206 JSR PC,MOVMSG sMOVE CURRENT PACKET MSG. 
ERRDF #2,NSSRM,STAERM ;REPORT TSO4 NOT READY 


ed cd ae cae ed ea ed ed 
AAARAAO 
aad ad and and and ad 
NM—OVONOUS 


RVR 


TIME 
50072$ 
CSERDF 


2 
NSSRM 
STAERM 
015430 JSR PC ,DROPU ;DROP THE UNIT. 
poir EXCRIN RETURN. 


50072$: 
UNTIL #TS.SSR SETIN @TSSR(RS) ;WAIT UNTIL DEVICE IS READY. 
032775 000200 002462 BIT 4h T+ al leaaiaas 


001756 BEQ 
IF CMDWRD EQ #SCH THEN IF WE ARE DOING A SET CHAR CMD THEN: 
023727 003346 140004 CMP Ar taal 


001022 BNE 

LET RSSAVE := R5 SAVE CURRENT DEVICE POINTER. 
010537 003400 MOV R5 ,RSSAVE 
004737 015332 JSR PC,FIRST FIND FIRST UNIT. 

WHILE DEVTAL CRS) NE #END DO 50076$ 


026527 002532 177777 CMP DEVTBL (RS) ,#END 
50075$ 


BEQ 
011152 JSR PC,WSSR WAIT FOR UNIT READY OR TIME OUT, 
015400 JSR PC,NEXTU FIND NEXT UNIT. 
ENDDO 
50074$ 


50075$: 
LET RS := RSSAVE RESTORE CURRENT DEVICE POINTER. 
013705 MOV RSSAVE. R5 
LET SCHBK := MSGPKA(RS) ;SET UP ADR OF MSG PKT IN SCH BLOCK 
016537 aeie MOV MSGPKA(RS), SCHBK 


50073$: 
LET R3 := MSGPKA(RS) ;ADR OF THIS UNIT'S MSG PACKET. 
016503 MOV MSGPKA(R5) ,R3 
LET R2 := #0 ;CLR COUNTER. 
005002 


CLR R2 
WHILE R2 NE #MSGCNT DO WHILE THERE is: Pea naan 





Ses 


a ad ed ae ae eee cd cee cee eed en ee 
NNNNNNNNNSN 
ed ad ad od od od dd 
WDWNAUSWN—O 
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020227 
001405 


012723 
062702 


000770 
105737 
001023 


126527 
003412 
017537 
104455 
000017 


004460 
005372 
004737 
000434 


005065 
052737 
105737 
001005 
005265 


016577 
012775 


032775 
001410 
004737 


000016 
177777 
000002 
002210 
003416 


002462 


015430 


003416 
000200 
003415 


003324 
003324 


002310 


000200 
011206 


015430 
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LET (R3)+ := #1 
LET R2 := R2 + #2 
ENDDO 


TSTB DINT 


BNE 1$ 
IFB INTFLG(RS) GT #1 THEN 
000001 


LET TSSREG := @TSSR(RS) 
ERRDF #15,TOOMM,STAERM 


003402 


JSR PC,DROPU 
BR_ EXCRIN 
ENDIF 
LET INTFLG(R5) := #0 
002310 BIS #1E.C,CMDPKT 
1$: IFB ERRREC EQ #0 THEN 
LET RECCNT(RS) := 
LET @DATAWT := 
ENDIF 


002452 MOV 


172536 


A#CMDPKT ,@TSDB(R5) 


IF #TS.SSR SETIN @TSSR(R5) THEN 


002462 


JSR = PC,MOVMSG 
ERRDF #3, TOERM,STAERM 


JSR _PC,DROPU 
ENDIF 


EXCRIN: RTS PC 


BEQ 
; INIT THE MSG PACKET weir 1°S 
; UPDATE COUNTER. 


50100$: 
:CLR INTERRUPT FLAG FOR yy DEV. 


:SET INT ENABLE BIT. 
: IF NOT RETRYING 


RECCNT (RS) 


CMP R2 MMSGENT 


50077: 
#-1,(R3)+ 
ADD #2,R2 
50076$ 
50077$: 
:ARE INTERRUPTS DISABLED. 
‘BR IF YES. 


;1F MORE THAN ONE INTERRUPT HAS OCCURED: 
CMPB A adel Ai 


BLE 50100 
FREEZE THE CURRENT STATUS REG FOR PRINT 
MOV @TSSR(R5) , TSSREG 
;REPORT TOO MANY oe 


«WORD - 15 
WORD 


WORD 
:DROP THE UNIT 
“RETURN - UNIT HAS BEEN DROPPED. 


INTFLG(RS) 


TSTB ERRREC 
BNE 50101$ 


RECCNT(RS) + #1 


INC Or ier tase 
; THEN UPDATE REC COUNT TO WRITE IT ON TAPE 
MOV RECCNT(RS) ,@DATA 


50101$: 
: LOAD TSDB WITH CMDPKT ADDRESS 
THTS INITIATES COMMAND EXECUTION. 
‘IF READY DID NOT DROP THEN: 
BIT 1 atte 


BEQ 
sMOVE CURRENT MESSAGE PACKET TO COMMON. 
REPORT NO TSO4 RESPONSE. 
TRAP CSERDF 
-WORD 3 
-WORD TOERM 
«WORD ST*ERM 
;DROP THE UNIT 


50102$: 


;RETURN. 
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THIS SUBROUTINE WAITS FOR THE TSO4 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR. 

UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
INBUTS: AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 


OUTPUTS 
REGISTERS: R2, R3. 
CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 


BeBe Be Be Be Be Be He 


:: LET TIME1 := #-1 : INIT TIME OUT COUNTER. 
012737 177777 003364 MOV #-1,TIME1 
REPEAT ;REPEAT UNTIL mat A OCCURES: 


BREAK :GO TO THE SUPER TO ALLOW TTY INPUT. 
104422 TRAP C$BRK 

IF CMDWRD EQ #RWD THEN ; IF COMMAND WAS REWIND THEN: 
023727 003346 102010 CMP CMDWRD , ARWD 
001014 BAC 50104$ 

DELAY 10. sWAIT EXTRA MSECS EACH 

012727 000012 MO #10.,(PC)+ 
000000 


002116 peigclertscats 
177772 -6(PC) 
BNE ™ 
177756 -22(PC) 
o7e0 
ENDIF 


IF CMDWRD EQ #SFF OR CMDWRD EQ #SFR THEN 
tH 003346 105010 moe 


00 
023727 003346 105410 
001014 


50105$: 
DELAY 12. :ADD DELAY FOR SPACE TAPE MARK COMMANDS 
012727 000014 MOV #12.,(PC)+ 
000000 0 


002116 ¥ LSDLY, (PC) + 
177772 D ~6(PC) 
177756 -22(PC) 

BN 20 


ENDIF 


50106$: 

IFB DINT EQ #0 THEN 7 1F INTERRUPTS ARE ENABLED. 
105737 TSTB DINT 
001003 BNE 50107$ 

LET R2 := INTFLG(RS) FETCH INTERRUPT OCCURRED FLAG. 

016502 MOV INTFLG(RS) ,R2 

ELSE :1F IN BRUTUS MODE: 
000406 BR 501108 


50107$: 
LET R3 := COMP #TS.SSR ;SET UP A MASK FOR THE DONE BIT. 
010772 012703 MOV #TS.SSR,R3 
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1776 010776 005103 COM R3 
1777 +011000 LET R2 := @TSSR(R5) CLR.BY R3 ;FETCH DONE BIT. 
1778 011000 017502 002462 MOV @TSSR(RS) ,R2 
1779 011004 040302 BIC R3,R2 
1780 011006 ENDIF 
1781 011006 50110$: 
1782 011006 LET TIME? := TIME1 = #1 UPDATE TIMEOUT COUNTER. 
1783 011006 005337 003364 DEC TIME1 
1784 011012 UNTIL R2 NE #0 OR TIME1 EQ #0 ;REPEAT UNTIL INTERRUPT OR READY OCCURES. 
1785 011012 005702 TST R 
1786 011014 001003 BNE 501118 
1787 011016 005737 003364 TST TIME 
1788 011022 001310 BNE 501038 
1789 011024 50111$: 
1790 011024 IF TIME1 EQ #0 THEN ;1F TIME OUT HAS OCCURRED: 
1791 011024 005737 003364 TST TIME 
1792 011030 001022 BNE 50112$ 
1793 011032 LET QDATAWT := RECCNT(RS) = #1 ;RE-ADJUST REC COUNT DOWN 
1794 011032 016577 003324 172274 MOV RECCNT(R5) ,@DATA 
1795 011040 005377 172270 DEC @DATAWT 
1796 011044 004737 011206 JSR PC,MOVMSG REPS CURRENT MSG PACKET TO COMMON AREA. 
1797 011050 ERRDF #4,NOINTM,STAERM REPORT NO INTERRUPT. 
1798 011050 104455 TRAP CSERDF 
1799 011052 000004 «WORD 4 
1800 011054 004421 «WORD NOINTM 
1801 011056 005372 «WORD STAERM 
1802 011060 004737 015430 JSR PC,DROPU ;DROP THE UNIT. 
1803 011064 LET R3 := MENDERF 
1804 011064 012703 003416 MOV #ENDERF ,R3 
1805 011070 004737 011136 JSR PC,CLRERR ;CLEAR ALL ERROR FLAGS 
1806 011074 ELSE 
1807 011074 000417 BR 50113$ 
1808 011076 50112$: 
1809 011076 004737 011206 JSR = PC,MOVMSG ;MOVE CURRENT MSG. PACKET TO COMMON AREA. 
1810 011102 004737 011272 JSR = PC,RECUD UPDATE THE RECORD COUNT. 
1811 011106 004737 011440 JSR PC,CHKERR CHECK FOR STATUS ERRORS. 
1812 011112 IFB WRTYFG EQ #0 THEN ; 
1813 011112 105737 003407 TSTB WRTYFG 
1814 011116 001006 BNE 50114$ 
1815 011120 004737 014016 JSR PC,LOG ;LOG BYTES AND ERRORS. 
1816 011124 LET R3:= #ENDERF 
1817 011124 012703 003416 MOV #ENDERF ,R3 
1818 011130 004737 011136 JSR PC,CLRERR ;CLEAR ALL ERROR FLAGS 
1819 011134 ENDIF 
1820 011134 501148: 
1821 011134 ENDIF 
1822 011134 501138: 
1823 011134 000207 RTS PC RETURN IF DONE. 
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1824 3 SUBROUTINE TO CLEAR FLAGS. 
1825 ; INPUTS: R3 = LWA TO BE CLEARED + 2. 
182¢ ; OUTPUTS: 
1827 5 REGISTERS: R2 
1828 ; CALLS: 
829 
1830 O111_ CLRERR:: LET R2 := #BGNFLG 
1831 011136 MOV #BGNFLG,R2 
1832 01114: REPEAT 
1833 011142 50115$: 
834 011142 LET (R2)+ := #0 
1835 011142 O005u CLR (R2)+ 
1836 011144 UNTIL R2 EQ R3 
1837 011144 020203 CMP R2,R3 
1838 011146 001375 BNE 50115$ 
1839 011150 000207 RTS PC 
1840 
1822 
1843 SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
1844 INPUTS: 
1845 OUTPUTS: 
1846 REGISTERS: 
1847 CALLS: 
1848 
1849 011152 ‘ :: LET TIME1 := #-1 ; INIT TIMEOUT COUNTER. 
1850 011152 012737 177777 003364 MOV #-1,TIME1 
1851 011160 REPEAT ;REPEAT UNTIL DEV READY OR TIMEOUT: 
1852 011160 50116$: 
1853 011160 BREAK ;BREAK TO THE SUPERVISOR. 
1854 011160 104422 TRAP C$BRK 
1855 011162 ‘ LET TIME1 := TIME] — 41 ;UPDATE TIMEOUT COUNTER. 
1856 011162 005337 003364 DEC TIME1 
1857 011166 UN IL #TS.SSR SETIN @TSSR(R5) OR TIME EQ #0 
1858 011166 032775 000200 002462 BIT #TS.SSR,aTSSR(RS 
1859 011174 001003 BNE 501178 
1860 011176 005737 003364 TST TIME1 
1861 011202 001366 50116$ 
1862 011204 50117$: 
1863 ;REPEAT UNTIL DEV READY OR TIMEOUT. 
by oe 011204 000207 RTS PC RETURN. 
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SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 


TO UPDATE THE CURRENT TERMINATION CLASS CODE. 
INPUTS: 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: 


MSG:: LET TSSREG := a@TSSR(R5) FREEZE THE STATUS REG —* 
LET R2 := TSSREG CLR.BY ATSC.TCC ;EXTRACT THE »seoramoicig’ © game CODE 
V 


BIC 
MOV 
ASR 
LET R3 := MSGPKA(RS) sADR OF THIS DEVICE'S a 
V 
LET R2 := #0 ;CLR COUNTER. cin 
WHILE R2 NE #MSGCNT DO sWHILE THERE ARE MORE LOCATIONS: 
50120$: 
CMP 
BEQ 
LET MSGPKT(R2) := (R3)+ MOVE MSG TO COMMON wea 
Vv 
LET R2 := R2 + #2 ;UPDATE COUNTER. 
ENDDO 


LET CTCC := R2 SHIFT -1 ;AND SAVE IT 


ADD 


50121$: 
LET EOTFLG(R5) := MSGPKT+MS.XSO ;MOVE XSTATO TO EOT ae, 
V 
RTS PC 


@TSSR(R5) , TSSREG 


TSSREG,R2 
#TSC.TCC,R2 


R2,CTCC 

cTcc 
MSGPKA(R5) ,R3 
P2 


R2,4MSGCNT 
50121$ 


(R3) + ,MSGPKT(R2) 
#2,R2 
50120$ 


MSGPKT+MS .XSO,E0 
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1901 ; SUBROUTINE TO ADJUST THE RECORD COUNT. 
; INPUTS: 


23 


OUTPUTS: 
REGISTERS: 
CALLS: 


:: IFB RECLOG EQ #0 THEN ;1F RECORD HAS NOT BEEN LOGGED: 
105737 003411 TSTB RECLOG 
001057 BNE 50122$ 
LET RECCNT(R5) := RECCNT(RS) = #1 
005365 003324 DEC RECCNT(R5) 
IF #BITO NOTSETIN CTCC AND #X2.0PM SETIN MSGPKT+MS.XS2 THEN ;IF T 
tH 000001 003376 BiT 


001 123$ 
032737 100000 002346 #X2.0PM,MSGPKT+M 
001442 B 50123$ 
LET RECLOG :B= RECLOG + #1 ;SET RECORD LOGGED, 
105237 003411 INCB RECLOG 
IF CMDWRD EQ #RWD THEN IF THIS IS A REWIND CMD: 
Renae 003346 102010 CMP MDWRD , ARWD 


S01zes 
LET RECCNT(RS) := #0 CLEAR RECORD COUNT, 
005065 003324 — CLR RECCNT (RS) 
000431 BR 50125$ 


50124$: 
IF #BRF.C SETIN CMDWRD THEN IF BRF USED, UPDATE RECORD COUNT. 
032737 003346 BIT #BRF .C , CMDWRD 
001425 BEQ 50126$ 
IF #MOD.CO NOTSETIN CMDWRD THEN ;IF A FORWARD CMD: 
032737 003346 BIT #MOD . CO, CMDWRD 
001007 0127$ 


BNE 5 
IF #MOD.CO NOTSETIN PCMDWD THEN ;IF PREV CMD WAS A FWD ALSO: 
4014 003352 BIT #™OD . CO. PCMDWD 


BNE 
LET RECCNT(RS) := RECCNT(R5) + #1 ; INCREMENT RECORD COUNT. 
005265 INC RECCNT (RS) 


ENDIF 
50130$: 
ELSE IF REVERSE CMD: 
000412 BR 50131$ 


50127$: 
IF #MOD.CO SETIN PCMDWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
032737 003352 BIT #MOD . CO.PCMDWD 
001406 BEQ 50132$ 
IF #X0.BOT NOTSETIN EOTFLG(R5) THEN ;WHEN NOT AT BOT THEN 
032765 003426 BIT #X0.BOT ,EOTFLG(R 
001002 50133$ 


BNE 
: LET RECCNT(RS) := RECCNT(RS) - #1 ;DECREMENT RECORD COUNT. 
005365 DEC RECCNT(R5) 


END IF 
50133$: 
ENDIF 
50132$: 


ENDIF 
011430 50131$: 
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1957 011430 ENDIF 
1958 011430 50126$: 
1959 011430 ENDIF 

50125$: 


0 

0 ENDIF 

° 50123$: 

30 LET Q@DATAWT := RECCNT(RS) 

016577 003324 171676 MOV RECCNT(R5) ,@DATA 


30 
36 ENDIF 
36 50122$: 
36 000207 RTS PC ;RETURN. 


=D 
W 
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: THIS IS THE ERROR CHECK SUBROUTINE. e tar INTERRUPT THIS 
: SUBROUTINE IS CALLED TO CHECK THE TS04 STATUS. 

; IF SPECIAL COND IS SET THEN THE TCC HANDL ING SUBROUTINE IS ENTERED. 
: IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 

; eUTee ERROR RFC IS REPORTED, 


OUTPUTS: 
REGISTERS: R2, 
CALLS: Reeontec7, 


011440 CHKERR:: IF #TS.SC SETIN TSSREG THEN IF SPECIAL COND STATUS IS SET THEN: 
032737 003402 BIT Shs ase- - TSSREG 


001441 BEQ 
IF CTCC NE #2 THEN :I1F TCC IS NOT 2 THEN: 
023727 000002 CMP CTCC,#2 
001405 BEQ 50135$ 
IFB ERRREC EQ #0 THEN z1F NOT IN ERROR RECOVERY: 
hte 4 TSTB ERRREC 


50136$ 
005265 INC SCCNT(R5) INC SC COUNTER. 


ENDIF 
a 50136$: 


50125$: 
IF #TS.NXM SETIN TSSREG OR #TS.UPE SETIN TSSREG THEN ;WHEN NON-EXISTANT MEMO 
pee ine 003402 a #TS.NXM, TSSREG 


501 
032737 003402 BIT #TS.UPE .TSSREG 
001412 501378 BEQ 50140$ 

IF #X2.0PM NOTSETIN MSGPKT+MS.XS2 THEN AND TAPE NOT MOVED 
032737 002346 BIT #X2.0PM,.MSGPKT+M 
001003 BNE 50141$ 

LET R2 := #5 SET TCCS INDEX 

012702 MOV #5 ,R2 

ELSE 
000402 BR 50142$ 


50141$: 
LET R2 : ;TAPE MOVED, SET TCC4 INDEX 
012702 MOV #4 ,R2 


ENDIF 
50142$: 
ELSE 
000402 BR 50143$ 


LET R2 := CTCC SET petecres icc INDEX 
013702 ‘ , MOV CTCC,R2 


ENDIF 
501438: 
LET R2 := R2 SHIFT 1 ;CURRENT TCC X 2. 
006302 ASL R2 
004772 ait PC ,aTCCRA(R2) :GO TO THE TCC HANDLING SUBROUTINE. 
000426 BR 501448 


50134$: 
IF ABRF.C SETIN CMDWRD THEN :1F BRF IS USED IN THIS CMD THEN: 
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2024 011552 032737 004000 003346 BIT #BRF .C, CMDWRD 
2025 011560 001422 BEQ 50145$ 
2026 011562 IF MSGPKT+MS.RFC NE #0 THEN ;IF THERE IS AN RFC THEN: 

2027 011562 005737 002340 TST MSGPKT+MS .RFC 
2028 011566 001417 BEQ 50146$ 
2029 011570 IFB RANDOM EQ #0 ORB VFYFLG NE 40 THEN 

2030 011570 105737 003441 TSTB RANDOM 
2031 011574 001403 BEQ 50147$ 
2032 011576 105737 003442 TSTB VF YFLG 
2033 011602 001411 BEQ 50150$ 
2034 011604 50147$: 

2035 71F NOT IN RANDOM OR IF CMD IS WTV: 
2036 011604 IFB IRE EQ #0 THEN zIF RFC ERROR REPORTS ARE ALLOWED: 
2037 011604 105737 003445 TSTB IRE 
2038 011610 001006 BNE 50151$ 
2039 011612 LET HRDCNT(R5) := HRDCNT(RS) + #1 ;UPDATE HARD ERROR COUNT 
2040 011612 005265 003304 INC HRDCNT (R5)- 
2041 011616 ERRHRD #13,RFCERM, STAERM ;REPORT RFC ERROR 

2042 011616 104456 TRAP CSERHRD 
2043 011620 000015 «WORD 13 
2044 011622 004254 «WORD RFCERM 
2045 011624 005372 -WORD STAERM 
2046 011626 ENDIF 

2047 011626 50151$: 

2048 011626 ENDIF 

2049 011626 50150$: 

2050 011626 ENDIF 

2051 011626 501468: 

2052 011626 ENDIF 

2053 011626 50145$: P 

2054 011626 ENDIF 

2055 011626 50144$: 

2056 011626 IFB RWERR NE #0 THEN 7I1F A READ/WRITE ERROR HAS OCCURRED THEN: 
2057 011626 105737 003413 TSTB RWERR 

- 2058 011632 001403 BEQ 50152$ 
2059 011634 LET CMDPKT := CMDSAV RESTORE CMD PACKET AFTER ERROR RECOV. 
2060 011634 013737 003350 002310 MOV CMDSAV, CMDPKT 
2061 011642 ENDIF 

2062 011642 50152$: 

$065 011642 000207 RTS PC RETURN. 

oe? 3 ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
2067 011644 011664 TCCRA: TCCO 

2068 011646 011702 TCC1 

2069 011650 011720 TCC2 

2070 011652 012030 TCC3 

2071 011654 012 TCC4 . 

2072 011656 012462 TCCS 

2073 011660 012 TCC6 

2074 011662 012722 TCC? 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
INurS: ERROR. 


OUTPUTS 
REGISTERS: 
CALLS: 


LET HRDCNT(R5) := HRDCNT(R5) + #1 ;UPDATE HARD ERROR COUNT. 





INC HRDCNT (RS) 


ERRHRD #5,SCERM,STAERM REPORT SPECIAL CONDITION ERROR. 
TRAP CSERHRD 
«WORD 5 
«WORD SCERM 
«WORD STAERM 
RTS PC ;RETURN. 


SUBROUTINE TJ HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH_AS GOING OFFLINE OR COMING ONL NE. 


INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4 

CALLS: DROPU 

ERRDF #6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
TRAP CSERDF 
. WORD 6 
. WORD ATTNM 


WORD STAERM 
JSR PC,DROPU DROP THE UNIT. 
RTS PC TURN. 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
a PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 
OUTPUTS: 

REGISTERS: 

CALLS: 


TCC2:: IF #X0.BOT SETIN MSGPKT+MS.XSO ANDB EXPBOT NE #0 THEN 


BE 
;1F AT BOT AND BOT IS EXPECTED: 
ae sRETURN-TCC2 CAUSED BY EXPECTED BOT. 


501538: 
IF #XO.RLS!XO.RLL!XO.TMK!XO.LET!X0.BOT SETIN MSGPKT+MS.XSO THEN 
BIT eno 'MO.RLL!X 


BEQ 
31F TCC2 CAUSED BY ANYTHING BUT EOT: 
IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 


:1F NOT IN RANDOM OR IF CMD IS WTV: 
71F RFC ERROR REPORTS ARE ALLOWED: 
TST8 IRE 
BNE 50157$ 
IF WE ARE IN ERROR RECOVERY THEN: 
TSTB ERRREC 


BEQ 501608 
LET UNREC :B= UNREC + #1 SET UNRECOVERABLE FLAG FOR LOG. 


ELSE ELSE - IF NOT IN ERROR RECOVERY: 
BR 50161$ 


50160$: 
LET SCCNT(RS) := SCCNT(RS5) + #1 ; INCREMENT THE SPEC COND COUNTER. 
INC SCCNT (RS) 
ENDIF 
50161$: 
LET HRDCNT(R5) := HRDCNT(RS) + #1 ; UPDATE HARD ERROR COUNT. 
N HRDCNT (RS) 


Cc 
ERRHRD #7,TSAM,STAERM REPORT TAPE STATUS ALERT. 
TRAP CSERHRD 


IFB IRE EQ #0 THEN 


IFB ERRREC NE #0 THEN 


“WORD  TSAM 
"WORD STAERM 
501578: 
501568: 
50154$: 
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$166 012026 000207 TC2RTN: RTS PC ; RETURN. 
2168 
2169 
sin 
2172 3 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
2173 $ THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
2174 3 RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA, 
2175 ; INPUTS: 
2176 é OUTPUTS: 
2177 é REGISTERS: R2,R4 
fe : CALLS: DROPU 
180 012030 TCC3:: ERRDF #8,FUNRM,STAERM ;REPORT FUNCTION REJECT. 
2181 30 104455 TRAP CSERDF 
012032 10 . WORD 
2183 012034 -WORD  FUNRM 


184 0 
2185 012040 004737 015430 JSR PC,DROPU ;DROP THE UNIT. 
186 012044 7 RTS PC ;RETURN. 
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SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 
TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. TE tein PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 
2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 
THE FIRST ONE, VIA BADTSW SWITCH, nek DETECT BAD SPOTS ON TAPE. 
IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 

20 BAD ab REACH 


OR EACHING 20 BAD 

SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 

UNIT DROPPED. 

My eset ALGORITHM ss THE TS11 WRITE RETRY COMMAND 
0 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WTA TH NEXT RECORD ON RECOVERY. 


OUTPUTS: 
REGISTERS: R2,R 
CALLS: Rte, “EXCUTE, GOWAIT, DROPU, WRTY 


IF CMDLG EQ #2 ANDB BADTSW NE #0 THEN 


CMP CMDLG, #2 
BNE 50162$ 
TSTB = BADTSw 
BE 50162$ 
IFB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 
TSTB —_— ERRREC 
BNE 50163$ 
TSTB —- ERCVER 
BEQ 50163$ 
ERRSOFT #9,RERM,STAERM s 
TRAP _ CSERSOFT 
.WORD 9 
“WORD  RERM 
“WORD  STAERM 
ENDIF 
50163$: 
IFB IREC EQ #0 THEN : 
TSTB 


BNE 50164$ 
LET ERRREC :B= ERRREC + #1 ;RETRY FLAG FOR EXCUTE ee eg Ome REC CN 
LET WRTYER :B= WRTVYER + #1 ;REWRITE ERROR FLAG FOR WRTY SUBR 


NCB WRTYER 
IFB WRTYFG EQ #0 THEN FIRST RETRY ON THIS wai 25 age 7 ¥ 
WRTY 
BNE 50165$ 
SRETRIES WITH TCC4 +> oe BY-PASS THIS SECTION 
LET WTYWRD := CMDWRD SAVE WRITE COMMAND PACKET 
CMDWRD , WT YWRD 
LET WIYCMD := CMDPKT : 
MOV CMDPKT ,WTYCMD 
LET WTYBRF := CMDPKT+CP.CNT ; 
MOV CMDPKT+CP.CNT WT 
LET RWERR :B= RWERR + #1 ;LOG SUBR FLAG: COUNT WRT ERRORS 
INCB RWERR 
LET WRIYFG :B= WRTIYFG + #1 RETRY IN PROGRESS FLAG 
INCB WRIYFG 
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2243 012166 REPEAT 
2244 012166 50166$: 
2245 012166 LET WRTYCT(RS) := WRTYCT(RS) + #1 ;COUNT GLOBAL WRITE RETRIES 
2246 012166 005265 003244 INC WRTYCT(RS) 
2247 012172 LET RETRYC := #0 /CLEAR # OF RETRIES PER RECORD 
2248 012172 005037 003404 CLR RE TRYC 
2249 012176 LET RPTCNT :B= #0 :CLEAR # OF REPEATS 
2250 012176 105037 003406 CLRB = RPTCNT 
2251 012202 004737 013066 JSR PC,WR CALL WRITE RETR 
2252 012206 UNTILB WATYER EO #0 OR aBTPT HIS #40. REPEAT RETRIES ON SAME RECORD 
2253 012206 105737 003410 TSTB - WRTYER 
2254 012212 001404 BEQ 501678 
2255 012214 027727 171216 000050 CMP @BTPT #40. 
2256 012222 103761 BLO 50166$ 
2257 012224 5016 
2258 UNTIL RECOVERED OR 0° BAD SPOTS 
2259 012224 IF @BTPT HIS #40. THEN :WHEN 20 BAD SPOTS LOGGED 
2260 012224 027727 171206 000050 CMP @BTPT #40. 
2261 012232 103423 BLO 501708 
2262 012234 PRINTB #BTMSG2 ;PRINT BAD TAPE OVERFLOW MSG 
2263 012234 012746 013427 MOV #BTMSG2 ,-(SP) 
2264 012240 012746 000001 MOV #1,-(SP) 
2265 012244 010600 MOV SP,RO 
2266 012246 104414 TRAP —- CSPNTB 
2267 012250 062706 000004 ADD #4 ,SP 
2268 012254 004737 013546 JSR PC,BORERS ERASE BAD RECORD 
2269 012260 LET RECCNT(RS) := RECCNT(RS) = #1 
2270 012260 005365 003324 DEC RECCNT (RS) 
2271 012264 004737 015430 JSR PC,DROPU ;DROP UNIT 
2272 012270 LET RECCNT(RS) := #0 : 
2273 012270 005065 003324 CLR RECCNT (RS) 
2274 012276 LET @TSDB(R5S) := #RWCPK ;REWIND UNIT 
2275 012274 012775 002330 002452 MOV #RWCPK , aT SDB(RS) 
2276 012302 ENDIF 
2277 012302 501708 
2278 012302 LET WRTYFG :B= #0 ;RETRY COMPLETE FLAG 
2279 012302 105037 003407 CLRB ——WRTYFG 
2280 012306 LET MISCFG :B= MISCFG + #1 :DO NOT HALT ON THIS CMD FLG 
2281 012306 105237 003455 INCB -MISCFG 
2282 012312 LET PCMDWD := WTYWRD ;RESTORE ORIGINAL WRT CMD AFTER RECOVERY 
2283 012312 013737 013336 003352 MOV WT YWRD , PCMDWD 
2284 012320 ENDIF 
2285 012320 50165$: 
2286 012320 ELSE 
2287 012320 000402 BR 501718 
2288 012322 501648: 
2289 012322 LET UNREC :B= UNREC + #1; 
2290 012322 105237 003414 INCB —_—UNREC 
2291 012326 END IF 
2292 012326 501718: 
2293 012326 ELSE 
2294 012326 000454 BR 501728 
2295 012330 501628: 
2296 012330 004737 012740 JSR PC.R :CHECK FOR RETRY LIMIT EXCEEDED. 
2297 012334 IF cMDCG GT #2 THEN IF READ CMD THEN: 


2298 012334 023727 003354 000002 CMP CMDLG,#2 
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003411 BLE 50173$ 
LET R2 := MRRECL SHIFT -1 ;R2=READ RETRY COUNT LIMIT / 2 
Oe ooS 000020 ps4 + Pees R2 


IF RETRYC GE R2 THEN ;1F RETRY COUNT ts. MORE TAN HALF LIMIT: 
023702 003404 CMP RETRYC,R2 
002403 BLT 501748 

LET CMDPKT := CMDPKT SET.BY #OPP.C :SET OPPOSITE BIT FOR RETRY2. 
052737 020000 002310 BIS #OPP.C,CMDPKT 


ENDIF 
50174$: 


ENDIF 
50173$: 
IF RETRYC EQ #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR THEN: 
TST RETRYC 


BNE 50175$ 
TSTB ERCVER 


BEQ 50175$ 
ERRSOFT #9,RERM,STAERM REPORT RECOVERABLE ERROR 

TRAP CSERSOF T 

«WORD 9 


«WORD RERM 
-WORD STAERM 
ENDIF PROVIDED OPERA TON Dee ENABLED THE REPORT 


LET RETRYC := RETRYC + #1 ;UPDATE RETRY COUNT. 
003404 INC RETRYC 
LET CMDPKT := CMDPKT SET.BY #MOD.C1 ;SET RETRY BIT IN CMD PACKET. 
052737 001000 002310 BIS #MOD.C1, CMDPKT 
IFB IREC EQ #0 THEN 7; 1F ERROR RECOVERY ENABLED: 
105737 002211 TSTB IREC 
001011 BNE 50176$ 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG. 
105237 003415 INCB ERRREC 
POP R2,R2 ;POP 2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 


MOV (SP)+,R2 
010326 JSR PC, EXCUTE :GO EXECUTE THE RETRY COMMAND. 
010636 JMP GOWAIT ;GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE sELSE IF ERROR RECOVERY is NOT Ce: 


50176$: 
LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
105237 INCB UNRE C 


ENDIF 
50177$: 


ENDIF 
50172$: 
012460 RTS PC 
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SUBROUTINE TO HANDLE ptt ~ hag 


CLASS CODE 5, RECOVERABLE ERROR. 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE=ISSUE THE ORIGINAL COMMAND . 
ay S: 
OUTPUTS: 
REGISTERS: R2,R4. 3 
CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 
JSR PC,RTLE ;CHECK FOR RETRY LIMIT EXCEEDED 
IF RETRYC EQ #0 THEN : 


ERRSOFT #10,RERM,STAERM 


ENDIF 
LET RETRYC := RETRYC + #1 
IFB IREC EQ #0 THEN 


LET ERRREC :B= ERRREC + #1 
LET RECCNT(R5) := RECCNT(RS) + 
LET @DATAWT := RECCNT(RS5) 
POP R2,R2 
JSR PC,EXCUTE 
ais GOWA! T 
LET UNREC :B= UNREC + #1 
ENDIF 
RTS PC 


BNE 
REPORT RECOVERABLE _— 


V 
;POP 2 RTN ADRS FROM STACK. 
MOV 


50201$: 
7 SET UNRECOVERABLE er 


IF THIS IS THE ORIGINAL ERROR THEN: 
TST paths 


RAP CSERSOF T 
.~ WORD 10 
-~ WORD RERM 
. WORD STAERM 
50200$: 
;UPDATE RETRY COUNTER. 
INC RETRYC 
; IF ERROR RECOVERY IS ENABLED: 
TSTB IREC 
50201$ 
;SET ERROR RECOVERY FLAG. 
I ERRREC 


#) ;UPDATE REC COUNT 


INC RECCNT (RS) 
AND INSERT IT yk WRT BFR 


BF 
RECCNT(R5) ,@DATA 
(SP)+,R2 
MOV (SP)+,R2 
:GO RE-ISSUE THE COMMAND. 
:GO WAIT FOR INTERRUPT + CHECK STATUS. 
sELSE IF ERROR RECOVERY IS NOT ENABLED: 
BR 50202$ 
UNRE C 


50202$: 


ZRETURN,. 
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2393 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
2394 : TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 

2395 : IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 

2396 : SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 

2397 : C ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

2398 : DROPPED FROM THE TEST SEQUENCE. 

2399 : INPUTS : 

2400 : OUTPUTS: 

2401 : REGISTERS: R2, 

2402 : CALLS: RTCE™ “USSR, EXCUTE, GOWAIT, DROPU 

2404 012560 TCC6:: IF X3.DCK NOTSETIN MSGPKT+MS.XS3 THEN 

2405 012560 033737 000010 002350 BIT X3.DCK ,MSGPKT+MS 
2406 012566 001016 BNE 502038 
2407 IF THERE IS NO DENSITY CHECK THEN: 
2408 012570 IF CMDLG NE #0 THEN IF CMD 1S A READ OR WRITE THEN: | 
2409 012570 005737 003354 TST 

2410 012574 001404 BEQ s02088 
2411 012576 LET RWERR :B= RWERR + #1 ;SET RD/WR ERROR FLAG, 

2412 012576 105237 003413 INCB —_—RWERR 
2413 012602 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
2414 012602 105237 003414 INCB __ UNREC 
2415 012606 ENDIF : 

2416 012606 502048: 

2417 012606 ERRDF #11,URERM, STAERM ;REPORT UNRECOVERABLE ERROR. 

2418 012606 104455 TRAP  CSERDF 
2419 012610 000013 .WORD 11 
2420 012612 004572 “WORD  URERM 
2421 012614 005372 “WORD  STAERM 
2422 012616 004737 015430 JSR PC,DROPU ;REPORT ERROR + DROP UNIT 

2423 012622 ELSE sELSE-IF THERE IS DENSITY CHECK: 

2424 012622 000436 BR 50205$ 
2425 012624 502038: 

2426 012624 004737 012740 JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED. 
2427 012630 IF RETRYC EQ #0 THEN IF THIS IS THE ORIGINAL ERROR THEN: 
2428 012630 005737 003404 TST RETRYC 
2429 012634 001004 BNE 50206$ 
2430 012636 ERRSOFT #11,URERM, STAERM ;REPORT DENSITY CHECK ERROR. 

2431 012636 104457 TRAP CSERSOFT 
2432 012640 000013 .WORD 11 
2433 012642 004572 WORD  URERM 
2434 012644 005372 “WORD STAERM 
2435 012646 ENDIF 

2436 012646 502068: 

2437 012646 LET RETRYC := RETRYC + #1 UPDATE RETRY COUNT. 

2438 012646 005237 003404 INC RE TRYC 
2439 012652 IFB IRE EQ #0 THEN ;1F ERROR RECOVERY IS ENABLED THEN: 
2440 012652 105737 003445 TSTB. IRE 
2441 012656 001016 BNE 502078 
2442 012660 LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG, 

2443 012660 105237 003415 INCB’ —_ ERRREC 
2444 012664 LET aTSDB(R5) := #RWCPK ISSUE A REWIND COMMAND, 

2445 012664 012775 002330 002452 MOV #RWCPK ,@TSDB(RS) 
2446 012672 004737 011152 JSR PC,WSSR :WAIT FOR SUBSYSTEM READY, 

2447 012676 POP R2.R2 :POP 2 RTN ADR'S FROM STACK 


2448 012676 012602 MOV "(SP)+,R2 
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MOV (SP)+,R2 
010326 JSR PC,EXCUTE sREISSUE THE COMMAND, 
010636 JMP GOWAIT WAIT FOR INTERRUPT 
ELSE sELSE-IF ERR REC conte 


50210$ 
50207$: 
LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
INCB UNRE C 
ENDIF 
ENDIF 
012720 RTS PC 


105237 003414 
50210$: 
50205$: 
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2462 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 
2463 : ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 
2464 : COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
2465 : REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
2466 : ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR. 
2467 ; : INPUTS: 
2468 : OUTPUTS: 
2469 : REGISTERS: R2, RG 
on ; CALLS: 
2472 012722 TCC7:: ERRDF #12,FATSM,STAERM ;REPORT FATAL SUBSYSTEM ERROR. 
2473 012722 104455 TRAP — CSERDF 
2474 012724 000014 «WORD 12 
2475 012726 004373 “WORD FATSM 
2476 012730 005372 “WORD  STAERM 
2477 012732 004737 015430 JSR PC,DROPU :DROP THE UNIT. 
2478 012736 000207 RTS PC ‘ ;RETURN. 
2479 
sa8t 
2482 3 SUBROUTINE TO CHECK FOR RETRY LIMIT Aad ee ig PRINTS ERROR MESSAGE 
2483 ; IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 
2484 : INPUTS: 
2485 : OUTPUTS: 
2486 : REGISTERS: R2, R4. 
2487 : CALLS: ROPU 
2489 012740 RTLE:: IF CMDLG EQ #0 THEN zIF CMD IS NOT A READ OR WRITE aoe 
2490 012740 005737 003354 TST 
2491 012744 001010 BNE sOTTs 
2492 012746 ERRDF #11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
2493 012746 104455 TRAP — CSERDF 
2494 012750 000013 .WORD 11 
2495 012752 004572 ;WORD - URERM 
249 012754 005372 “WORD  STAERM 
2497 012756 004737 015430 JSR PC,DROPU ;DROP THE UNIT. 
2498 012762 POP R2 
2499 012762 012602 MOV (SP)+,R2 
2500 012764 000437 BR RTLRIN ZAND RETURN. 
2501 012766 ENDIF 
2502 012766 50211$: 
2503 012766 LET RWERR :B= RWERR + #1 ;SET READ/WRITE ERROR FLAG. 
2504 012766 105237 003413 INCB = RWERR 
2505 012772 IF CMDLG EQ #2 THEN IF CMD IS A WRT OR WIM: 
2506 012772 023727 003354 000002 CMP CHOL G #2 
2507 013000 001016 BNE 0212$ 
2508 013002 IF RETRYC EQ #WRECL THEN :1F RETRY COUNT HAS REACHED Limite 
2509 013002 023727 003404 000020 CMP RETRYC, #WRECL 
2510 013010 001011 BNE 502138 
2511 013012 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG 
2512 013012 105237 003414 INCB —sUNREC 
2513 013016 ERRDF #14,RLEXM, STAERM :REPORT RETRY LIMIT EXCEEDED. 
2514 013016 104455 TRAP. CSERDF 
2515 013020 000016 .WORD 14 
2516 013022 004310 “WORD RLEXM 
2517 013024 005372 “WORD  STAERM 
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JSR PC,DROPU 
POP R2 


ENDIF 
ELSE 


IF RETRYC EQ #RRECL THEN 


LET UNREC :B= UNREC + #1 
ERRHRD #14,RLEXM,STAERM 


POP R2 
ENDIF 
ENDIF 
RTLRTN: RTS PC 


;DROP THE UNIT. 
MOV 


50213$: 
sELSE - CMD IS A READ: 
50212$: 
IF RETRY COUNT HAS ee LIMI 


SET UNRECOVERABLE FLAG " 
REPORT RECOVERABLE _— 


50215$: 


502148: 
RETURN 


(SP)+,R2 


50214$ 

T3 

RETRYC ,ARRECL 
50215$ 

UNREC 

CSERHRD 

14 


RLEXM 
STAERM 


(SP)+,R2 
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2543 ; SUBR TO REWRITE A BAD, BUT iar ws RECORD. 


IF ALL 4 REPEATS GOOD, RECORD IS RECOVERED 

AND A RECOVERABLE WRITE ERROR IS LOGGED. 

IF AN 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 
BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 
IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH 
ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 

THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 

2552 ; SPOTS MAX ARE ALLOWED. 


2554 ; INPUTS: 

; OUTPUTS: 
REGISTERS: R3,R 
CALLS: SORERS, REWRT 


~m 
vi 
* 
~S 
Be he Be Be Be Be Be 
~< 
oO 
nn 


nN 
Ww 
vi 
Oo 
BeBe Bee 


2559 013066 WRTY:: BEGIN RETRY 
REPEAT 


2561 013066 50217$: 
2562 013066 BEGIN REPEAT 
1 REPEAT 


50221$: 
2565 013066 004737 013546 JSR PC,BORERS ;BACKSPACE/ERASE ONE RECORD 
2566 013072 LET WRTYER :B= #0 CLEAR WRITE RETRY ERROR 
2567 013072 105037 003410 CLRB WRTYER 
2568 073076 004737 013722 JSR PC,REWRT REWRITE RECORD ON SAME SPOT 
2569 013102 LET RPTCNT :B= RPTCNT + #1 COUNT REPEATS 
2570 013102 105237 003406 INCB RPTCNT 
2571 013106 UNTILB RPTCNT EQ #4 ORB WRTYER NE #0 zsLIMIT: 4 REPEATS OR RECOVERED 
2572 013106 123727 003406 000004 CMPB RPTCNT ,#4 
2573 013114 001403 BEQ 50222$ 
2574 013116 105737 003410 TSTB WRTYER 
2575 013122 001761 BEQ 50221$ 
2576 013124 50222$: 
2577 013124 END REPEAT ; 


50220$: 
25 013124 LET RETRYC := RETRYC + #1 COUNT RETRIES 
2580 013124 005237 003404 INC RETRYC 
2581 013130 IFB WRTYER EQ #0 THEN : 
2582 013130 pete of 003410 TSTB WRTYER 


BNE 50223$ 
2584 013136 LEAVE RETRY zsEXIT RETRY LOOP IF RECOVERED 
2585 013136 000457 BR 50216$ 
2586 013140 ELSE : 

2587 013140 50223$: 

2588 013140 IFB ERCVER NE #0 THEN : 

2589 013140 105737 002205 TSTB ERCVER 

590 001415 


BEQ 50225$ 
2591 013146 ene PRINTB #BTMSG1,RETRYC,<B,RPTCNT> :PRINT SUSPECTED BAD SPOT 
2593 013150 153716 003406 BISB _—RPTCNT,. (SP) 
013154 013746 003404 MOV RETRYC.-(SP) 
013160 012746 013342 ; MOV #BTMSG -(SP) 
2596 013164 012746 000003 MOV #3,-(SP) 
013170 010600 SP;R 
013172 104414 TRAP — CSPNTB 
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2599 013174 062706 000010 ADD #10,SP 
2600 013200 ENDIF é 

2601 013200 50225$: 

2602 013200 IF RETRYC EQ #1 THEN ;0N FIRST RETRY, LOGG BAD SPOT 

2603 013200 023727 003404 000001 CMP RETRYC,#1 
26046 013206 001021 BNE 226$ 
2605 013210 LET BIPT := BTADDR(RS) ;BTPT IS BOTH THE BAD SPOT COUNTER 
2606 013210 016537 002544 003436 MOV BTADDR(RS) ,BTPT 
2607 013216 LET R4& := @BIPT + #2 ;AND THE LOGGING INDEX 

2608 013216 017704 170214 MOV @BTPT,R4 
2609 013222 062704 000002 ADD #2,R4 

2610 013226 LET @BTPT := R4 : 

2611 013226 010477 170204 MOV R4,aBTPT 
2612 013232 IF R4 LOS #40. THEN Z 

2613 013232 020427 000050 CMP R4,440. 
2614 013236 101005 BHI 50227$ 
2615 013240 LET R3 := BTIPT ;STORE FIRST 20 BAD SPOTS 

2616 013240 013703 003436 MOV BIPT,R3 
2617 013244 LET R4 := R4 + R3 : 

2618 013244 060304 ADD R3,R4 

2619 013246 LET (R4) := RECCNT(RS) : 

2620 013246 016514 003324 MOV RECCNT (RS), (R4) 
2621 013252 ENDIF 

2622 013252 50227$: 

2623 013252 ; ENDIF ; 

2624 013252 50226$: 

2625 013252 LET ERSFLG :B= ERSFLG + #1 ;ERASE FLAG TO ERASE BAD RECORD 
2626 013252 105237 003451 ‘ INCB ERSFLG 
2627 013256 LET RWERR :B= #0 ;CANCELL ‘LOG’’ ERROR FLAG ON FAILING RET 
2628 013256 105037 003413 CLRB RWERR 

2629 013262 LET RPTCNT :B= #0 ;CLEAR REPEAT COUNT FOR NEXT RETRY 
2630 013262 105037 003406 CLRB RPTCNT 

2631 013266 ENDIF 3 . 

2632 013266 50224$: 

2633 013266 UNTIL RETRYC EQ #4 LIMIT: 4 RETRIES i 
2634 013266 023727 003404 000004 CMP RETRYC 44 
2635 013274 001274 ~ BNE 50217$ 
2636 013276 END RETRY : 

2637 013276 50216$: 

2638 013276 IFB WRTYER NE #0 THEN 3 

2639 013276 105737 003410 TSTB WRTYER 
2640 013302 001413 ° BEQ 50230$ 

2641 013304 IFB ERCVER NE #0 THEN ; 

2642 013304 105737 002205 TSTB ERCVER 
2643 013310 001410 BEQ 50231$ 
2644 013312 PRINTB #BTMSG3 sPRINT RETRY FAILED sail 
2645 013312 012746 013477 MOV #BTMSG3,-(SP) 

013316 012746 000001 ; MOV #1,-(SP) 

2647 013322 010600 MOV SP,RO 

2648 013324 104414 TRAP C$PNT 

2649 013326 062706 000004 ADD #4,SP 

2650 013332 ENDIF 

2651 013332 “ 50231$: 

2652 013332 ENDIF »s 

2653 013332 502308: 

2654 013332 000207 RTS PC 
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2655 
2656 
2657 
2658 
2659 
2661 013334 90%00 WTYCMD: .WORD 0 sSTORAGE FOR WRITE CMD WHILE RETRYING 
so6e 013336 000000 WIYWRD: .WORD 0 ; STORAGE FOR WRITE CMD WORD WHILE RETPYING 
2663 013340 000000 WTYBRF: .WORD 0 | ;STORAGE FOR WRITE BPCR WHILE RETRYING 
2665 
2666 013342 040445 052523 050123 BIMSG1: .ASCIZ /ZASUSPECT BAD SPOT AFTER %D1%A RETRY, %D1%A REPEATIN/ 
2667 013350 041505 020124 040502 
2668 56 020 050123 052117 
2669 0404 052106 051105 
013372 022440 030504 
2671 051 052105 054522 
042045 
013414 020101 042522 04 
047 


000 
2675 at 94 34 045 oes 18 041101 BTMSG2: .ASCIZ /%NZABAD TAPE OVERFLOW: CHANGE TAPE! ZNZN/ 


000 
G2 bach 052105 BIMSG3: .ASCIZ /ZARETRY FAILED ON BAD SPOT...ERASED! %N/ 


047520 
051105 051501 042105 


0135 
013542 022441 





GLOBAL 


AREAS 
CZTSHC.P11 


13 
3 
3 


722 
722 





MACY11 30(1046) 


11-OCT-79 


013737 
012737 
ae 
013737 
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001426 


013737 
012737 
013737 
013737 

737 


105037 


000207 


013737 
013737 
013737 
013737 
013737 
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003346 
104410 
003346 
004000 
002310 
000001 
003354 
007344 
010326 
010636 
015724 
003451 


003346 
100411 
003346 
002310 
007344 
010326 
010636 
015724 
003451 


003346 
013336 
013334 
002310 
003334 
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003352 
003346 


002310 
002310 


003350 
00231? 


003352 
003346 
002310 
003350 


003352 
003346 
002310 
003350 
002312 
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: IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
: INPUTS: ERSFLG 1 = DO ERASE 
: OUTPUTS: 
: REGISTERS: 
; CALLS: EXCUTE, GOWAIT, CKHAE 
BORERS:: LET PCMDWD := CMDWRD ;SET COMMAND TO SPACE REV : 
LET CMDWRD := #SRR : amy 
LET CMDPKT := CMOWRD CLR.BY #BRF.C F 
MOV 
BIC 
LET CMDSAV := CMOPKT ; 
MOV 
LET CMDPKT+CP.ADL := #1 ; 
MOV 
LET CMDLG := #0 : 
CLR 
JSR PC, CMDAC : 
JSR PC.EXCUTE : 
JSR PC, GOWAIT : 
JSR PC. CKHAE : 
IFB ERSFLG NE #0 THEN WHEN ERASE FLAG IS SET, DO ERASE 
BEQ 
LET PCMDWD := CMDWRD : 
MOV 
LET CMDWRD := #ERS : 
MOV 
LET CMDPKT := CMDWRD =; 
MOV 
LET CMDSAV := CMDPKT : 
MOV 
JSR PC, CMDAC : 
JSR PC.EXCUTE 
JSR PC,GOWAIT 
JSR PC. CKHAE 
LET ERSFLG :B= #0 
CLRB 
ENDIF 
502328: 
RTS PC 
: SUBR TO REWRITE A BADLY WRITTEN RECORD 
REWRT: LET PCMDWD := CMDWRD § ;RESTORE WRITE COMMAND PACKET 7 
LET CMDWRD := WIYWRD: 
MOV 
LET CMDPKT := WIYCMD : 
MOV 
LET CMDSAV := CMDPKT : ina 
LET CMDPKT+CP.ADL := DATAWT : 
MOV 


SUBR TO BACSPACE ONE RECORD 


CMDWRD , PCMDWD 
#SRR , CMDWRD 


CMDWRD , CMDPKT 
BRE .C,.CMDPKT 


CMDPKT , CMDSAV 


#1, CMDPKT+CP.ADL 


CMDLG 


ERSFLG 
50232$ 


CMDWRD , PCMDWD 
#ERS , CMDWRD 

CMDWRD , CMDPKT 
CMDPKT , CADSAV 


ERSFLG 


CMDWRD , PCMDWD 
WTYWRD , CMDWRD 
WTYCMD ,CMDPKT 
CMDPKT , CMDSAV 


DATAWT , CMDPKT +CP 
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2746 013760 LET CMDPKT+CP.CNT := WTYBRF : 
2747 013760 013737 013340 002316 MOV WTYBRF ,CMDPKT+CP 
2748 013766 LET CMDLG := #2 : 
2749 013766 012737 000002 003354 MOV #2,CMDLG 
2750 013774 004737 007344 JSR PC, CMDAC 
2751 014000 004737 010326 JSR PC,EXCUTE ;RE-WRITE RECORD 
2752 014004 004737 010636 JSR PC,GOWAIT ; 
2753 014010 0046737 015724 JSR PC,CKHAE : 


2754 014014 000207 RTS PC ‘ 
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2755 ; SUBROUTINE TO LOG BYTES READ/WRITTEN. 
2756 ; ALSO UPDATES READ/WRITE ERROR COUNTERS. 
2757 : INPUTS 
2758 : OUTPUTS 
2759 : REGISTERS: R2, R3, RA. 
3760 ; CALLS: 
2762 014016 LOG:: IFB ERLOG EQ #0 THEN ; IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
2763 014016 105737 003412 TSTB —— ERLOG 
2764 014022 001126 BNE §0233$ 
2765 014024 LET ERLOG :B= ERLOG + #1 :SET LOG DONE FLAG. 
2766 014024 105237 003412 INCB — ERLOG 
2767 014030 LET RG := CMDLG :GET CURRENT CMD LOGGING CODE. 
2768 014030 013704 003354 MOV CMDLG.R4 
2769 014034 IF R4 NE #0 THEN :IF THERE IS A CODE THEN: 
2770 014034 005704 TST R4 
2771 014036 001520 BEQ 50234$ 
2772 014040 LET R4 := RG = #2 ;ADJUST THE CODE FOR TABLE INDEX. 
2773 014040 162704 000002 SUB #2 RG 
2774 014044 LET R2 := RS + BINC(R4) + ACNTBGN ;R2 = ADR OF. BYTE COUNT LSW. 
2775 014044 010502 MOV R5,R2 
2776 014046 066402 014302 ADD BINC(R4) ,R2 
2777 014052 062702 002554 ADD #CNTBGN,R2 
2778 014056 LET (R2) := (R2) + BRFECNT ZADD BRF TO LSw. 
2779 014056 063712 003344 ADD BRF CNT, (R2) 
2780 014062 IF MSGPKT+MS.RFC LOS BRFCNT THEN ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
2781 014062 023737 002340 003344 CMP MSGPKT+MS .RFC,BR 
2782 014070 101002 BHI 50235$ 
2783 014072 LET (R2) := (R2) - MSGPKT+MS.RFC ;SUBTRACT RFC FROM EXPECTED BRF. 
2784 014072 163712 002340 SUB MSGPKT+MS RFC, (R 
2785 014076 ENDIF 
2786 014076 50235$: 
2787 014076 LET R3 := R2 + #10 :R3 = ADR OF 2ND WORD. 
2788 014076 010203 MOV R2,R3 
2789 014100 062703 000010 ADD #10,R3 
2790 014104 WHILE (R2) GT #999. DO 
2791 014104 50236$: 
2792 014104 021227 001747 CMP (R2) #999 
2793 014110 003404 BLE 50237 
279% 014112 LET (R2) := (R2) = #1000.  ;UPDATE BYTE COUNT 
2795 014112 162712 001750 SUB #1000. , (R2) 
2796 014116 LET (R3) := (R3) + #1 :2ND WORD. 
2797 014116 005213 INC (R3) 
2798 014120 ENDDO 
2799 014120 000771 BR 50236 
2800 014122 502378: 
2801 014122 LET R2 := R3 + #10 :R2 = ADR OF 3RD WORD. 
2802 014122 010302 MOV R3,R2 
2803 014124 062702 000010 ADD #10,R2 
2804 014130 WHILE (R3) GT #999. DO 
2805 014130 50240$: 
2806 014130 021327 001747 CMP (R3) ,#999 
2807 014134 003404 BLE 502418 
2808 014136 LET (R3) := (R3) = #1000. UPDATE BYTE COUNT 
2809 014136 162713 001750 SUB #1000. , (R3) 
2810 014142 LET (R2) := (R2) + #1 :3RD WORD. 
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005212 
000771 


010203 
062703 
021227 
003404 
162712 
005213 
000771 
105737 
001440 
010502 
066402 
062702 
105737 
001404 
062702 


005212 
000424 


005212 


105737 
001020 


105737 
001015 
105737 
001412 


000010 


001747 


001750 


003413 


014310 
002714 


003414 


000010 
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INC (R2) 
ENDDO 
502408 
50241$: 
LET R3 := R2 + #10 ;R3 = ADR OF 4TH WORD. 
MOV R2,R3 
ADD #10,R3 
WHILE (R2) GT #999. DO 
50242$: 
CMP (R2) #999. 
BLE 5024 8$ 
LET (R2) := (R2) = #1000. ;UPDATE BYTE COUNT 
SUB #1000. , (R2) 
LET (R3) := (R3) + #1 24TH WORD. 
INC (R3) 
ENDDO 
50242$ 
50243$: 
IFB RWERR NE #0 THEN 7 IF R/W ERROR, UPDATE ERROR COUNT. 
TSTB RWERR 
BEQ 502448 
LET R2 := RS + EINC(R4) + MWRREC ;R2 = ADR OF COUNTER. 
MOV R5,R2 
ADD EINC(R4) ,R2 
ADD AWRREC,R2 
IFB UNREC NE #0 THEN 71S THE ERROR UNRECOVERABLE? 
TSTB —_—~UNREC 
BEQ 50245$ 
LET R2 := R2 + #10 ;YES, POINT TO NEXT COUNTER. 
ADD #10,R2 
LET (R2) := (R2) + #1 ; UPDATE THE ERROR COUNTER nz) 
N 
ELSE ZELSE - IF ERROR IS RECOVERABLE: 
BR 50246 
50245$: 
LET (R2) := (R2) + #1 ; UPDATE THE ERROR (R2) 
IFB IREC EQ #0 THEN :IF ERROR RECOVERY IS ENABLED: 
TSTB —sSTREC 
BNE 502478 
IFB DROPED EQ #0 ANDB ERCVER NE #0 THEN :IF UNIT HAS NOT BEEN DROPPED: 
TSTB DROPED 
BNE 50250$ 
TSTB ——ERCVER 
BEQ 50250$ 
PRINTB #NURTY1T,RETRYC sPRINT # OF RETRIES TO RECOVER 
MOV RETRYC,-(SP) 
MOV #NURTY1,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP CSPNT 
ADD #6,SP 
ENDIF :PROVIDED PRINT HAS BEEN ENABLED 
502508: 
ENDIF 


50247$: 


tial 
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2867 014300 ENDIF 

2868 014300 50246$: 

869 014300 ENDIF 

2870 014300 50244$: 

2871 014300 ENDIF 

2872 014300 50234$: 

2872 014300 ENDIF 

2874 014300 50233$: 

2875 014300 000207 RTS PC 

2876 ; INDEXES TO BYTE COUNTERS. 

2877 014302 000000 BINC: 0 WRITE 

2878 014304 000040 READ REV. 

2879 014306 000100 100 READ FWD. 

2880 : INDEXES TO READ/WRITE ERROR COUNTERS. 

2881 014310 000000 EINC: 0 WRITE. 

2882 014312 000020 20 READ REV. 

2883 014314 000040 40 READ FWD. 

2884 

2885 

2886 

2887 

2888 ; IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 

2889 : TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

2890 ; READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 

2891 : INPUTS: 

2892 : OUTPUTS: 

2893 : REGISTERS: 

pote: : CALLS: VFEXC. 

2896 014316 VFYDAT:: IF8 VFYFLG NE #0 THEN IF DATA IS TO BE VERIFIED: 

2897 014316 105737 003442 TSTB VFYFLG 
2898 014322 001426 BEQ 50251$ 
2899 014324 LET PCMDWD := CMDWRD ;SAVE THE PREVIOUS COMMAND WORD. 

2900 014324 013737 003346 003352 MOV CMDWRD , PCMDWD 
2901 014332 LET CMDWRD := #RDR ; COMMAND IS READ REV. 

2902 014332 012737 104401 003346 MOV #RDR , CMDWRD 
2903 014340 LET CMDLG := #4 SET UP CMD LOGGING INDEX. 

2904 014340 012737 000004 003354 MOV #4,CMDLG 
2905 014346 004737 014402 JSR PC, VFEXC ;GO READ ALL THE RECORDS REV. 

2906 014352 LET PCMDWD := CMDWRD SAVE THE PREVIOUS COMMAND D. 

2907 014352 013737 003346 003352 : MOV CMDWRD , PCMDWD 
2908 014360 LET CMDWRD :~ #RDF : COMMAND IS READ FWD. 

2909 014360 012737 104001 003346 MOV #RDF , CMDWRD 
2910 014366 LET CMDLG := #6 SET UP CMD LOGGING INDEX. 

2911 014366 012737 000006 003354 #6,CMDLG 
2912 014374 004737 014402 JSR = PC,VFEXC :GO READ ALL RECORDS FWD. 

2913 014400 ENDIF 

2914 014400 50251$: 


2915 014400 000207 RTS PC ;RETURN. 
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013737 
042737 


105737 
001403 
052737 


013737 
013737 


005037 


023737 
002062 


026527 
001442 


032737 
001421 


032765 
001014 


032765 
001406 
105737 


001402 
004737 


000402 
004737 


003346 
004000 
003444 


010000 


002310 
003336 
003340 
003340 
007344 
015332 
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000400 
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003450 
014630 
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002310 
002310 


002310 


003350 
002312 


003342 


177777 


003346 


003426 


003426 
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SUBROUTINE TO EXECUTE THE READ AN 
INPUTS: 
OUTPUTS: 
REGISTERS: R2 
CALLS: CMDAC, FIRSTU, VF 


:: LET CMDPKT := CMDWRD CLR.BY A#BRF 


IFB SWBFLG NE #0 THEN 


LET CMDPKT := 
ENDIF 
LET CMDSAV := CMDPKT 


MOV DATARD , CMDPKT+CP.ADL 
LET NCNT := #0 


WHILE NCNT LT NCNT1 DO 


JSR PC, CMDAC 
JSR PC, FIRSTU 
WHILE DEVTBL (RS) NE END DO 


IF #MOD.CO SETIN CMDWRD THEN 


IF #X0.BOT NOTSETIN EOTFL 

IF #XO.EOT SETIN EOTFLG 

IFB ALLEOT NE #0 THEN 
JSR PC,VFISU 

ENDIF 

ELSE 
JSR PC, VF ISU 

ENDIF 


ENDIF 
ELSE 


-C ;COMMAND PACKET = 

BIC 
: TF BYTES ARE TO BE SWAPPED: 
CMDPKT SET.BY #SWB.C 


50252$: 
SAVE COMMAND PACKET soa ee 


;SAVE BUFFER START ADDRESS. 
; CLEAR NUMBER OF OPERATIONS. 


CLR NCNT 
;WHILE THERE ARE RECORDS REMAINING: 
50253$: 


50260$: 
sELSE IF CMD IS NOT _—— 


D VERIFY, FORWARD OR REVERSE. 


ISU, NEXTU, CKHAE. 
READ REV OR FWD. 

MOV CMDWRD , CMDPKT 
WBRF .C, CMDPKT 


SWBFLG 
50252$ 


#SWB.C,CMDPKT 


ith 
SET SWAB BIT IN ea 


CMDPKT , CMDSAV 


CMP 

BGE 
STORE CMD ASCiI IN ERROR MSG. 
SET UP_FOR FIRST UNIT 
[WHILE THERE ARE DEVICES REMAINING: 

50255$: 
CMP DEVTBL (RS) , #END 
50256$ 


BEQ 
IF CMD IS REVERSE THEN: 
BIT 


NCNT ,NCNT1 
50254$ 


#MOD . CO, CMDWRD 
50257$ 


#X0.BOT ,EOTFLG(R 
502608 


BEQ 
G(R5) THEN ;IF NOT AT at 


BNE 
(R5) THEN ;BUT IF AT EOT 
BIT 


#X0.EOT ,EOTFLG(R 
02° 1$ 

EO) 

ALLEOT 

50262$ 


FREEZE UNIT(S) 


BEQ 
ZAND ALL OTHERS AT 
TSTB 
BEQ 
; THEN READ VERIFY 
:I1F NOT ALL AT EOT, 
50262$: 


:1F NOT AT BOT AND 
50263$ 
50261$ 


:NOT AT EOT, READ \VFY 
50263$: 


50264$ 
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014554 


50257$: 
IF #XO.EOT NOTSETIN EOTFLG(R5) OR #CMD.CO NOTSETIN CMDWRD THEN 
032765 000001 003426 BIT rts EOT. -EOTFLG(R 


001404 
032737 000001 003346 #CMD.CO,CMDWRD 
001002 50266$ 


014574 ot 
IF NOT AT EOT OR NOT A MOTION CMD THEN: 
014574 004737 014630 emir PC, VF ISU ISSUE CMD, CHECK STATUS AND DATA. 


ewit 50266$: 


50264$: 
004737 015400 obso PC,NEXTU 3;GO FIND THE NEXT UNIT. 
000732 BR 50255$ 


50256$: 
004737 015724 JSR  PC,CKHAE ; CHECK FOR HALT AFTER EACH CMD. 
LET NCNT := NCNT + 41 ; UPDATE THE RECORD COUNT. 
005237 003340 INC NCNT 
LET PCMDWD := CMDWRD ;SAVE PREVIOUS COMMAND WORD. 
013737 003346 003352 ENDO MOV CMDWRD , PCMDWD 
000712 BR 50253$ 


50254$: 
014626 000207 RETURN. 
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SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
ase CHECK DATA. 


OUTPUTS: 
REGISTERS: R2 
CALLS: EXCUTE, GOWAIT, CKDATA. 


a8 LET R2 := DATARD + #8. INIT READ BUFFER POINTER. 
013702 003336 MOV DATARD ,R2 
062702 000010 ADD #8.,R2 
WHILE R2 NE DATARD DO sUNTIL 8 BYTES a SET, 


020237 003336 CMP R2,DATARD 
001403 BEQ 50270$ 
LET -(R2) := #1 INIT READ BUFFER. 
012742 177777 MOV #-1,-(R2) 
ENDDO 
000772 BR 50267$ 
50270$: 
004737 010326 JSR PC, EXCUTE :GO EXECUTE THE COMMAND. 
IFB DROPED EQ #0 THEN IF UNIT HAS NOT BEEN DROPPED THEN: 
105737 003446 TSTB DROPED 
BNE 50271$ 
010636 eit PC ,,GOWAIT ;GO WAIT FOR DONE BIT. 


50271$: 
IFB DROPED EQ #0 THEN : IF UNIT HAS NOT BEEN DROPPED THEN: 
aioke 003446 TSTB DROPED 


BNE 50272$ 

IF #X0.BOT NOTSETIN EOTFLG(RS) THEN WHEN NOT REVERSED INTO BOT, THEN 

032765 000002 003426 BIT #X0.BOT ,EOTFLG(R 
001002 5027 3$ 


BNE 
004737 014716 adie PC,CKDATA :GO VERIFY DATA. 


ENDIF 
014714 RTS PC 


eesessesy 
ONAOUSW-O 


50273$: 
50272$: 
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013703 
163703 


64 
005224 
012746 
012746 
010600 
104414 
062706 
000560 


020337 
101417 


000536 
010337 
005337 
005037 
005002 
013703 


013704 
105737 


003344 
002340 


005010 
000001 


000004 


003344 


002316 
005031 
000002 


000006 


015326 
015326 
015330 
003334 
003336 


003447 
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INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 


Se Be Be Be Be Be 


CKDATA:: LET R3 := BRFCNT = MSGPKT+MS.RFC ;COMPUTE REC LENGTH = * 


TION 


R2, R3, R4. 
GCMDA 


IF R3 EQ #0 THEN 


ERRHRD 17,WTVERM,DTAERM 


PRINTB #DTAE 


ELSE 


IF R3 HI BRF 


ERRHRD 17,WTVERM,DTAERM 


PRINTB #DTAERS ,CMDPKT+CP. CNT 


ELSE 
LET CKDCNT 


CLR CKDFF 
CLR R2 

LET R35 := 
LET R4 := 
IFB T1SWB 


R4 


CNT THEN 


:= R35 - #1 
DATAWT 
DATARD 
NE #0 THEN 


COMPARE ROUTINE 


SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
AND PRINT ERROR MESSAGE ON MISCOMPARE. 


WHEN NO DATA RECEIVED 


BNE 
;PRINT ERROR SS 


50274$: 
WHEN REC READ IS LONGER 
CMP 


BLOS 
; THAN EXPECTED, PRINT 
TRAP 


« WORD 
« WORD 


. WORD 
zAN ERROR MESSAGE 


AND EXIT ROUTINE 


50276$: 
7 SAVE Oy = T, 


DEC 
CLEAR # OF hott ERROR COUNTER.” 


INIT BYTE COUNT 
[GET WRITE BUFFER ADDRESS. 


:GET READ BUFFER Ee, 
WHEN RUNNING TEST1~SUB 12, 
TSTB 


BRF CNT ,R3 
MSGPKT+MS .RFC ,R3 
R3 

50274$ 

CSERHRD 

17 


WTVERM 
DTAERM 


MDTAERS ,-(SP) 
#1,~-(SP) 


#4 SP 

50275$ 

R3,BRF CNT 

50276$ 

CSERHRD 

17 

WTVERM 

DTAERM 

CMDPKT+CP.CNT ,~( 
o~ (SP) 


50277$ 


RS CKDCNT 


DATAWT ,R3 
DATARD .R4 
T1SWB 
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001401 
000313 


020237 
001011 


105737 
001406 


032737 
001002 
105723 
105724 


121314 


002017 


015326 
003444 
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015330 


003274 
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015330 
003364 
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015330 


003366 
003364 


004677 
000004 
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SWAB (R3) 
ENDIF 


REPEAT 


IF R2 EQ CKDCNT THEN 


IFB SWBFLG NE #0 THEN 


IF #BITOO NOTSETIN CKDCNT THEN 


TSTB (R3)+ 
TSTB (R4)+ 
ENDIF 
ENDIF 


ENDIF 

CMPB (R3),(R4) 
BEQ $ 
TST CKDFF 

BNE 


INC VFYCNT(R5) 
INC HRDCNT(RS) 
ERRHRD #17,WTVERM,DTAERM 


LET CKDFF := CKDFF + #1 


MOVB (R4),TIME1 
BIC #177400, TIME1 
MOVB (R3),TIME2 
BIC #177400, TIME2 
IF CKDFF LT #11. THEN 


BEQ 50300$ 
:SWAP FIRST WORD OF WRT BFR 
‘WHICH CONTAINS THE RE CORD COUNT 
:REPEAT UNTIL ALL DATA Is COMPARED : 


:1F THIS IS THE LAST BYTE THEN: 


R2,CKDCNT 
BNE 50302$ 
y1F BYTE SWAPPING IS ENABLED THEN: 
TSTB SWBFLG 
BEQ 50303$ 
:IF RECORD LENGTH IS ODD THEN: 
BIT #B1T00, CKDCNT 
50304$ 


BNE 
;LAST BYTE WILL BE IN 
; THE UPPER BYTE. 


50304$: 
50303$: 


50302$: 
;ARE THEY ae 


;BR_IF SO. 
31 ST TIME THRU? 
;BR IF NO 


3 Y. 
: INC THE VERIFY ERROR COUNTER. 
INC THE HARD ERROR COUNT. 
REPORT WRITE/VERIFY ERROR. 
ee | ra 


«WORD WTVERM 

«WORD DTAERM 
; INCREMENT # OF BYTES IN ERROR. 

INC CKDFF 


;SAVE WAS DATA FOR TYPOUT. 
; CLEAR GARBAGE. 
SAVE SHOULD BE DATA FOR TYPOUT. 
. _; CLEAR GARBAGE. 
IF ERROR BYTE COUNT IS ity THAN 11: 


CKDFF ,411. 
50305$ 


BGE 
PRINTX #DTAER2,R2,<B,TIME1>,<B,TIME2> ;PRINT ng F ACT DATA. 


ENDIF 


(SP) 

BISB TIME2, (SP) 
~ (SP) 

BISB TIME1, (SP) 


50305$: 
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3$: TSTB (R3)+ 
TSTB (R4)+ 
TSTB (R2)+ 
UNTIL R2 GT CKDCNT 
LET CKDCNT := CKDCNT + #1 


IF CKDFF NE #0 THEN 


PRINTB #DTAER3,CKDFF ,CKDCNT 


ENDIF 
ENDIF 
ENDIF 
RTS PC 
CKDCNT: .WORD 0 
CKDFF: .WORD 0 


UPDATE WRITE BUFFER ADDRESS. 
UPDATE READ BUFFER ADDRESS. 


‘UPDATE BYTE COUNTER. 
ZEND OF DATA COMPARE REPEAT LOOP. 
CMP R2,CKDCNT 
BLE 50301$ 


;CKDCNT EQUALS RECORD LENGTH. 
INC eat 
: IF COMPARE ERROR HAS — nen 


Be 503 
;PRINT # OF BYTES IN ERROR. 
MOV CKDCNT ,~(SP) 


r MOV CKDFF ,-(SP) 

MOV #DTAER3S,-(SP) 
MOV #3,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #10,SP 

50306$: 

50277$: 

50275$: 


OTHERWISE, RETURN. 


7:4 OF BYTES TO BE VERIFIED -1. 
3:4 OF BYTES IN ERROR COUNTER. 
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3178 : SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
3179 3 INPUTS: 

3180 : OUTPUTS: 

3181 . REGISTERS: 

3188 : CALLS: 

3184 015332 LET DROPED :B= #0 CLR UNIT DROPPED FLAG 


3185 105037 
015336 LET R5 := #0 CLR DEVICE POINTER. 
005005 CLR 
WHILE DEVTBL{R5) EQ #NINUSE DO ;WHILE DEVICES Ae aos IN USE: 
026527 002532 177774 CMP DEVTBL (R5) ,ANINU 
001003 50310$ 
LET RS := R5 + #2 sPOINT TO NEXT DEVICE. 
062705 000002 ADD #2,R5 
ENDDO 
000771 BR 50307$ 


50310$: 
IF DEVTBL(RS) EQ #END THEN 7 IF ALL UNITS HAVE BEEN laa 


R5 


THEN: 
026527 002532 177777 DEVTBL (RS) , “END 
001001 BNE 50311$ 
DOCLN ;DO CLEAN CODE AND TERMINATE PASS. 
TRAP CSDCLN 
ENDIF ; 
50311$: 
LET L$LUN := DEVTBL(RS) ;SET UNIT # IN ‘HEADER’ FOR ERROR REPORT 


MOV DEVTBL (RS) ,LSLUN 
RTS PC RETURN WITH 1ST DEVICE IN RS. 


104444 


016537 002532 
015376 000207 


Ww 
it) 
—_— —2 
w= 


SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
INPUTS: 


Ww 

%— 
aah aod a ad end eed wed 
WONAULW 


OUTPUTS: 
REGISTERS: 
CALLS: 
LET DROPED :B= #0 ;CLR UNIT DROPPED FLAG 
CLRB DROPED 
REPEAT ;REPEAT UNTIL ng ex DEVICE IS FOUND. 


LET RS := RS + #2 - ;UPDATE DEVICE TABLE POINTER. 


062705 000002 #2,R5 

UNTIL DEVTBL(RS5) NE #NINUSE 
026527 002532 177774 CMP DEVTBL (RS) ,ANINU 
001772 50312$ 


BEQ 
LET LSLUN := DEVTBL(RS) ;SET UNIT # IN ‘HEADER’ FOR ERROR REPORT 
; : MOV DEVTBL (RS) .LS$LUN 
- RTS PC RETURN. 


105037 003446 


WIKIS 
S gs 


MNMNr 


15420 
015420 016537 002532 002074 
015426 000207 





B 10 


AREAS 1301946) 11-OCT-79 14:02 PAGE 80 
Pp rtorre 79 13:59 GLOBAL SUBROUTINES SECTION 
; SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 
: INPUTS: 
3 OUTPUTS: 
; REGISTERS: ; 
: CALLS: MOVMSG, PRXST, LOG 
015430 DROPU:: LET FTLCNT(RS) := FTLCNT(RS) + #1. ;INCREMENT THE FATAL ERROR COUNT. 
015430 005265 003314 INC ETLCNT(RS) 
015434 LET RG := MSGPKT+MS.XS3 CLR.BY #377 ;GET UDIAG ERROR CODE FROM XSTA 
015434 013704 002350 MOV ASCP ws. XS3,R4 
015440 042704 000377 BIC #377,R 
15444 LET R3 := MSGPKA(RS) zADR OF THIS UNIT'S MSG PACKET. 
15444 016503 002502 MOV MSGPKA(RS) ,R3 
015450 LET R2 := #0 ZCLR COUNTER. 
015450 005002 CLR R2 
015452 WHILE R2 NE #MSGCNT DO :WHILE THERE ARE MORE LOCATIONS: 
015452 50313$: 
015452 020227 000016 CMP R2, 4MSGCNT 
015456 001405 BEQ 50314$ 
15460 LET (R3)+ := #=1 ; INIT THE MSG PACKET WITH ALL 1°S 
015460 012723 177777 MOV #-1, (R3)+ 
015464 LET R2 := R2 + #2 ; UPDATE COUNTER. 
015464 062702 000002 ADD #2.R2 
015470 ENDDO 
015470 000770 BR 50313$ 
015472 503148: 
015472 LET @TSDB(RS) := &GSCPK ; INITIATE A GET STATUS COMMAND. 
015472 012775 002320 002452 MOV #GSCPK ,a@TSDB(RS) 
015500 004737 011152 JSR PC, = ;WAIT A WHILE FOR SSR=1 
004737 011206 JSR PC,MOVMS sMOVE MSG PACKE7 TO COMMON AREA. 
510 IF R4 EQ a RNY THEN TIF WE HAVE A CAPSTAN RUNAWAY THEN 
510 020427 157400 CMP RG #X3.RNY 
514 001005 BNE 5$ 
516 ERRDF #16,RNYM,STAERM ZREPORT CAPSTAN RUNAWAY WITH TACH CNT. 
015516 104455 TRAP — CSERDF 
015520 000020 . WORD 
015522 004504 “WORD  RNYM 
015524 005372 “WORD  STAERM 
015526 ELSE :ELSE-IF NOT A RUNNAWAY: 
015526 000402 BR 50316$ 
015530 50315$: 
015530 004737 015642 JSR PC,PRXST ;PRINT EXTENDED STATUS REGISTERS. 
015534 ENDIF 
015534 50316$: 
015534 IFB RECLOG NE #0 THEN 7 IF THE RECORD HAS BEEN LOGGED THEN: 
015534 105737 003411 TSTB. RECLOG 
015540 001404 BEQ 503178 
5542 LET DROPED :B= DROPED + #1 7SET UNIT DROPPED FLAG. 
542 105237 003446 INCB — DROPED 
546 004737 014016 JSR PC,LOG ;LOG DATA BYTES + RD/WR ERRORS. 
552 ENDIF 
552 50317$: 
552 DORPT ;PRINT PERFORMANCE REPORT 
552 104424 TRAP — CSDRPT 
554 DROPUA: IF PASCNT(RS) NE #0 THEN 


554 005765 003254 TST PASCNT(R5) 


SESE SERERE 


SSN 
ORS 


015600 


58 
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001402 
005365 


016537 
010500 
006200 
104451 


026527 
001410 


105737 


105237 


105237 
000207 


000000 


003254 


002532 


002532 


002211 


003452 


003446 
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015640 


177774 


LET PASCNT(RS) := 


ENDIF 


LET DROPN := 


LET RO := 


DODU RO 


C 10 


DEVTBL (RS) 
RS SHIFT =1 


PASCNT(RS) = #1 


50320$: 
SAVE # OF UNIT TO BE DROPPED. 


;RO=LOGICAL DEVICE NUMBE 


IF DEVTBL(RS) NE #NINUSE THEN ;IF UNIT NOT DROPPED 


IFB IREC EQ #0 THEN 


BEQ 
:1F RECOVERY IS ENABLED THEN: 
TSTB 


BEQ 
DEC 


CMP 


NCB 


INCB 


50320$ . 
PASCNT(R5) 


DEVTBL (R5) , DROPN 
R5,RO 


ASR RO 
;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
RAP C$D0DU 


DEVTBL (RS) ,ANINU 
50321$ 


IREC 
50322$ 


STAFLG 


DROPED 


NOP 
NOP 
NOP 
LET STAFLG :B= STAFLG + #1 SET START FLAG TO a; y REWIND, 
ENDIF 
50322$: 
ENDIF 
50321$: 
DRORTN: LET DROPED :B= DROPED + #1 ;SET UNIT DROPPED FLAG. 
RTS PC RETURN. 
DROPN: .WORD 0 ;# OF UNIT TO BE DROPPED 


015722 


015724 
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105737 
001430 


105737 
001023 


104450 
103023 


013704 
004737 


112337 
112337 
111337 
104443 
000404 
003364 
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SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 


OUTPUTS: 
REGISTERS: 
CALLS: 


PRINTX #GETSTM 


SUBROUTINE TO HALT AFTER EACH COMMAND. 
INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 


IFB HAE NE #0 THEN IF HALT FLAG IS SET: 
IFB MISCFG EQ #0 THEN 3 


MANUAL 1S MANUAL INTERVENTION . 
BNCOMPLETE CKHRTN ;BR IF NOT. 
LET R& := CMDWRD ; COMMAND WORD. 

MOV 


JSR PC,GCMDA :FETCH ADR OF CMD ASCII. 
LET HALTM :B= (R3)+ ;MOVE CMD ASCII =e 


LET HALTM+1 :B= (R3)+ 
MOVB 
LET HALTM+2 :B= (R3) : INTO MESSAGE. 


VB 
GMANIL HALTM,TIME1,1,YES HALT - WAIT FOR AN waite waa 2 


#GETSTM,=(SP) 
#1,~(SP) 


PRO 
CSPNTX 


#14,SP 


HAE 
50323$ 


MISCFG 
50324$ 


CSMANI 
CKHRTN 
CMDWRD .R4 


(R3)+,HALTM 
(R3)+, HAL TM+1 
(R3) ,HAL TM+2 
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3377 015776 000130 -WORD TS$CODE 
3378 016000 004042 -WORD HALTM 
3379 016002 000001 -WORD 1 
3380 016004 10000$: 
3381 016004 ELSE 
3382 016004 000402 BR 50325$ 
3383 016006 50324$: 
3384 016006 LET MISCFG :B= #0 ; 
3385 016006 105037 003455 CLRB MISCFG 
3386 016012 ENDIF 
3387 016012 50325$: 
3388 016012 ENDIF 
3389 016012 503238: 
90 016012 000207 CKHRTN: vit PC ; RETURN 
EVEN 


3353 016014 ENDMOD 





GLOBAL 
CZTSHC 


SOUBNAUSWN—O 


EELELELEEE EEE 
fe ee ey ee 


w 
wi 


AREAS 


-P11 


016014 
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010537 
004737 


026527 
001562 


016546 


016546 


003400 
015332 


002532 
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- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


BGNMOD 


p++ 
; THE REPORT CODING SECTION CONTAINS THE 
; "PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS. 


BGNRPT 
LSRPT:: 
LET R5SAVE := R5 ;SAVE CURRENT DEVICE POINTER. 
MOV R5,RSSAVE 
JSR PC,FIR FIND THE FIRST UNIT 
WHILE DEVIL (RS) ONE #END DO “WHILE THERE ARE MORE DEVICES: 
DEVTBL (RS) , 4END 
BEQ 50327$ 
PRINTS #RPT1A,DEVTBL(R5) ,PASCNT (RS) ,RECCNT (RS) 
MOV RECCNT (RS) ,-(SP) 
MOV PASCNT (RS) ,=(SP) 
MOV DEVTBL (RS) ,-(SP) 
MOV #RPT1A,-(SP) 
MOV #4 ,-(SP) 
MOV SP ,RO 
joy Sto'sp 
PRINTS #RPT1B,WRBC+30(R5) ,WRBC+20(R5), w8C +1013) “wn (R39 
WRBC (R5) ,-(SP) 
MOV WRBC+10(R5), -(SP 
MOV WRBC+20(R5) .-(SP 
MOV WRBC+30(R5) ,-(SP 
MOV #RPT1B,-(SP) 
MOV #5 ,~-(SP) 
MOV SP RO 
— CSPNTS 
PRINTS #RPT1C,RRBC+30(R>) - bop £c+104R9) “ame (R3) 
RRBC (RS) .-(SP) 
mov RRBC+10(R5) 7 (SP 
MOV RRBC+20(R5) ,=(SP 
MOV RRBC+30(R5) ,-(SP 
MOV #RPT1C,-(SP) 
MOV #5 ,-(SP) 
MOV SP RO 
a CSPNTS 
4 ; #14,SP 
PRINTS #RPTID RFBC+ i vik) re, weRSd. -RFBC(RS) 
MOV RFBC(RS) ,-(SP) 


MOV RFBC+10(R5) ,=(SP 
RFBC+20(R5) .=(SP 
MOV RFBC+30(R5) ,=(SP 


338 
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RRR EERE 


3457 
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' 


105737 
001402 
004737 


016546 


013705 


000167 
001130 
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000005 


000014 
015400 
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MOV #RPT1D,=(SP) 
MOV #5,-(SP) 
MOV SPR 
TRAP CSPNTS 
ADD #14,SP 
PRINTS #RPTIF ,WRREC (RS) ,RRREC(R5) ,RFREC (RS) 
MOV RFREC(R5) ,=(SP) 
MOV RRREC(R5) ,=(SP) 
MOV WRREC (R5) ,-(SP) 
MOV #RPTIF ,=(SP) 
MOV #4 ,-(SP) 
MOV SP,RO 
TRAP CSPNTS 
ADD #12,SP 
PRINTS #RPT1G,WRUNR(R5) ,RRUNR(RS) ,RFUNR(RS) 
MOV RFUNR(R5) ,~(SP) 
MOV RRUNR (R5) ,-(SP) 
MJY WRUNR (R5) ,= (SP) 
MOV #RPT1G,-(SP) 
MUv #4 ,~-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD #12,SP 
IFB BADTSW NE #0 THEN i 
TSTB BADT Sw 
BEQ 50330$ 
eubie PC,BTRPT :GO PRINT BAD TAPE SPOTS WHEN ENABLED 
50330$: 
PRINTS #RPT11,SCCNT(R5S) ,HRDCNT (RS) ,F TLCNT (RS) , VF YCNT (RS) 
MOV VF YCNT (RS) ,~(SP) 
MOV FTLCNT (RS) ,~(SP) 
MOV HRDCNT (R5) .-(SP) 
MOV SCCNT (RS) ,~(SP) 
MOV #RPT1I,-(SP) 
MOV #5 ,-(SP) 
MOV SPR 
TRAP CSPNTS 
ADD #14,SP 
JSR = PC,NEXTU FIND THE NEXT UNIT. 
ENDDO 
50326$ 
50327$: 
LET RS := RSSAVE RESTORE CURRENT DEVICE POINTER. 
MOV RSSAVE .R5 
EXIT RPT 
«WORD J$JMP 
«WORD L10010-2-. 


SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 

BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 


MISCELLANEOUS 
CZTSHC.P11 


016572 


020327 
101402 


012703 


012746 


Y1 
759 


002544 
164770 


017335 
000002 


000006 
000024 
000024 
005216 
000001 


000004 


003436 
000002 


017420 
000002 


000006 


000002 


003436 
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BIRPT: 


PRINTS #RPTIE ,WRTYCT(RS) 


LET BIPT := BTADDR(RS) 
LET R3 := @BIPT SHIFT =1 


PRINTS #RPT1J,R3 


IF R3 NE #0 THEN 


IF R3 HI #20. THEN 


LET R3 := #20. 
ENDIF 
PRINTS #CRLFSP 


LET R4 := BIPT + #2 


LET R2 := #0 
REPEAT 


;PRINT GLOBAL WRITE veri’ * pe 


ADD 
;BTPT IS BOTH THE BAD TAPE SPOT 
sAND THE LOGGING INDEX 


;PRINT # OF BAD TAPE SPOTS 


WRTYCT(RS) ,=(SP) 
TIE ,~(SP) 


BTADDR(R5) ,BTPT 
@BTPT ,R3 
R3 


ADD #6,SP 
;PRINT RECORD #4 IF BAD a 2h DETECTED 


BEQ 
CMP 
BLOS 
320 BAD SPOTS IS THE LIMIT 
MOV 


50332$: 


:FETCH A BAD SPOT ID 


ADD 
;R2 = PRINT COUNT PER LINE: 10 a9 


503338 
PRINTS #RPT1K, (R4) ;PRINT A BAD SPOT ID 


LET R2 := R2 + #1 
LET R4 := R4 + #2 
IF R2 EQ #10. THEN 


; COUNT PRINTS 
sNEXT 


R 
50331$ 


R3,#20. 
503328 


#20. ,R3 


ype le 


BIPT,R4 


. 


R2 


(R4) ,~(SP) 
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000012 CMP R2,#10. 
BNE 503348 
PRINTS #CRLFSP ;GO TO NEXT PRINT LINE PAST 10 paints 
005216 MOV A#CRLFSP,-(SP) 
000001 #1,-(SP) 
SP_RO 
CSPNTS 
000004 #4,SP 
LET R3: ” ZADJUST BAD SPOT COUNT 
162703 000012 #10.,R3 
LET R2 : ‘ ;ADJUST PRINT COUNT 
162702 000012 #10.,R2 


ENDIF 3 
334$: 


50 
UNTIL R2 EQ LIMIT: # OF BAD SPOTS 
020203 R2,R3 
1343 50333$ 
ENDIF 


PRINTS A#CRLF 


50331$: 
#CRLF ,-(SP) 
#1,-(SP) 


2 


040445 -— FININEAUNIT bh sr at Maa tren ee 


04 
04 


AD FWD + %23%A, %23%A,, 22 32N/ 
/%S23%AWRT%S4ZARDRES4ZARDF XN/ 
/ZARECOVERABLE ERRORS  %D5%S2%D5%52%D52N/ 
/ZAUNRECOVERABLE ERRORS %D5%S2%D5%S2%D52N/ 
/ZAWRITE RETRIESZS82D52N/ 
fartty A BAD SPOTS THIS TAPE PASS PRECEDING RECORD #:/ 


/2D5%S1 
° ""ZAS SPEC OND%ZS3ZAHARD2ZS 3ZAF ATAL%S 3ZACOMPARE 2N'' 
031523 . (AS20545 320545520985 SADSININ/ 


R 
RRERRERKRERE 


® 
Nm 
RRRRK 


017503 


017540 
017540 L10010: 
017540 TRAP CS$RPT 


-SBTTL LOAD DEVICE PROTECTION TABLE 


TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
: THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 


017542 BGNPROT 
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017542 
017542 000000 
017544 177777 
017546 177777 
017550 
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LSPROT:: 


. WO 
ENDPROT 


;P-TBL OFFSET OF TSSR, 
;P-TBL OFFSET OF DRIVE # 


THE TS11 CSR 
;P-TBL OFFSET OF MASS 7 UNIT #: =-1 = NOT A MASS BUS DE 


: = 


= NONE, ONE DRIVE PER UNIBU 
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3610 -SBTTL INITIALIZE SECTION 

3611 

3612 se? 

3613 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
1 ; AT THE BEGINNING OF EACH PASS. 


017550 BGNINIT 
017550 LSINIT:: 


017550 INIT10: IF #BITO!BIT1 SETIN #CMDPKT THEN ;IF CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 
032727 002310 BIT po A ateae 


001421 
ERRSF #1,CMDPKM ;PRINT ERROR MSG, 


104454 CSERSF 
000001 1 
004102 CMDPKM 
000000 


DELAY 2000. ;GO TO SUPERVISOR, WAIT S. 
012727 003720 att 


002116 ¥ LSDLY, (PC)+ 
177772 -6(PC) 

BN oe 
177756 ~22(PC) 


BR _—INIT10 aft 
ENDIF 
017622 50335$: 


017622 IFB CLRFLG NE #0 THEN ;1F CLR COUNTERS FLAG SET: 

105737 002202 TSTB CLRFLG 
001413 BEQ 50336$ 
105037 002202 CLRB CLRFLG INIT CLR FLAG. 

LET R2 := #0 
005002 CLR R2 

WHILE R2 NE #CNTLEN DO 

50337$: 


020227 CMP R2,4CNTLEN 
001405 


BEQ 50340$ 
LET WRBC(R2) := #0 :CLR ALL STATISTICAL COUNTERS. 
005062 CLR WRBC (R2) 
LET R2 := R2 + #2 


062702 ADD #2,R2 
ENDDO 
000770 BR 50337$ 
50340$: 
ENDIF 


017656 50336$: 


017656 IFB RRANV NE #0 THEN 31F RESET RANDOM VARIABLE FLAG IS SET THEN: 
105737 002203 TS1B RRANV 
001406 BEQ 50341$ 
LET RANB := #RANBC RESET RANDOM BASE #. 
012737 153624 003360 #RANBC ,RANB 
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017672 LET RANS := #RANSC ;RESET RANDOM SAVE LOCATION. 
012737 032561 003362 En it MOV MRANSC , RANS 


50341$: 
READEF #EF.START READ START COMMAND EVENT FLAG. 
012700 000040 MOV re 8 


104447 TRAP 
BNCOMPLETE INIT15 ;BRANCH IF NOT STARTING. 

103026 BCC INIT15 
LET STAFLG :B= STAFLG + #1 7SET START COMMAND FLAG. 

105237 003452 INCB STAFLG 
LET RS := #6 

012705 000006 MOV #6,R5 
REPEAT : INITIATE UNIT NUMBER TABLE 

50342$: 


LET DEVTBL(RS) := #NINUSE ;BY STORING NOT IN USE IN EACH LOCATION. 
012765 177774 002532 MOV #NINUSE ,DEVTBL(R 
LET RS := RS = #2 
162705 000002 SUB #2,R5 
UNTIL R5 EQ #0 
005705 


R5 
001371 BNE 50342$ 
LET RS := LSUNIT SHIFT 1 
013705 MOV LSUNIT,RS5 
006305 ASL RS 
REPEAT zSTORE ALL UNIT 
LET RS := RS - #2 ;NUMBERS IN DEVTBL. 


162705 000002 SUB #2,R5 
LET DEVTBL(RS) := R5 SHIFT -1 
010565 002532 MOV R5 ,DEVTBL (R5) 
006265 002532 ASR DEVTBL (RS) 
UNTIL R5 EQ #0 
005705 TST R5 
001370 BNE 50343$ 


: READEF #EF .PWR ;HAS THERE BE A POWER FAILURE? 
012700 MOV #EF .PWR,RO 
104447 TRAP CSREFG 
BNCOMPLETE INIT16 ;BRANCH IF NOT. 
103004 BCC INIT16 
LET STAFLG :B= STAFLG + #1 :1F SO - SET THE START FLAG. 
105237 INCB STAFLG 
LET PWRFLG :B= PWRFLG + #1 IF SO - SET THE POWER FAIL FLAG. 
105237 INCB PWRFLG 


INIT16: RFLAGS OPFLAG READ AND STORE FLAGS SET BY OPERATOR 
104421 TRAP CS$RFLA 
010037 MOV RO,OPFLAG 
LET R3 := #0 CLEAR EVENT FLAG 
005003 


CLR 
IFB PWRFLG EQ #0 THEN 7: 1F POWER FAIL HAS NOT nee THEN: 
105737 TSTB PWRFLG 
001020 BNE 5034 
READEF #EF .NEW UPDATE PASS COUNT WHEN 
012700 MOV #EF .NEW RO 
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104447 TRAP CSREFG 
IFCOND CS THEN ; SUPERVISOR IS IN NEW PASS 
103014 BCC 50345$ 
IFB STAFLG EQ #0 THEN ;AND DIAG WAS NEITHER STARTED 

105737 003452 TSTB STAFLG 

001010 BNE 50346$ 
READEF #EF .RES ;NOR 

012700 000037 MOV #EF .RES,RO 

104447 TRAP CSREFG 
IFCOND CC THEN RESTARTED 

103402 BCS 50347$ 

LET R3 := COMP R353 ;D0 IT 

005103 COM R3 
ELSE 

000401 BR 50350$ 


50347$: 
LET R3 := ;SET 1ST PASS IF NEW PASS AND 
005203 INC R3 
ENDIF ZRESTARTING 
50350$: 


ELSE 


000401 BR 50351$ 
50346$: 
LET R3 :=R SET 1ST PASS IF NEW PASS AND 
005203 INC R3 
ENDIF ; STARTING 


50351$: 
ENDIF :DO NOT UPDATE IT ON CONTINUE 


ENDIF OR ON POWER a 


004737 015332 JSR PC ,FIRSTU INIT DEVICE POINTER. 
LET R2 := #0 INIT DEVICE COUNTER. 
005002 R2 
WHILE DEVTBL(RS) NE #END DO 
50352$: 


026527 002532 177777 : C DEVTBL (R5) , 4END 
50353$ 


001450 
LET R2 := R2 + #1 
005202 R2 
LET RO := R5 SHIFT -1 
010500 R5,RO 
006200 ASR RO 
GPHARD RO,RO GET HARDWARE P TABLE FROM SUPER. 
104442 TRAP CSGPHRD 
IFCOND CS THEN 
103036 BCC 50354$ 
LET TSSR(RS) := (RO) SAVE TSSR ADDRESS. 
011065 MOV (RO), TSSR(R5) 
LET TSDB(RS) := (RO)+ - #2 ;SAVE TSDB ADDRESS. 
012065 2 MOV (RO) +, TSDB(RS) 
162765 00000 SUB #2, TSDB(RS) 
LET TSVCT(R5) := <RO) SAVE INTERRUPT VECTOR ADDRESS. 
011065 MOY (RO) , TSVCT (RS) 
SETVEC TSVCT(RS),TS4INT(RS) ,AINTPRI ;SET UP INTERUPT PROCESSING CONDITIONS. 
012746 MOV #INTPRI ,~(SP) 
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020140 016546 002512 TS4INT(R5) ,=(SP) 
020144 002472 TSVCT(R5) ,=(SP) 
000003 ‘ #3,-(SP) 
C$SVEC 
000010 ADD #10,SP 
IF R3 NE #0 THEN sACTUAL PASSCOUNT sienecig* R3 


R3 
BEQ 50355$ 


TST R3 
BGE 50356$ 


INC PASCNT(R5) 


BR 50357$ 
50356S: 4 
LET PASCNT(RS) : , , 
012765 MOV #1,PASCNT(R5) 


ENDIF 
50357$: 
ENDIF 
50355$: 


ENDIF 
503548: 
LET RECCNT(RS) := #0 :CLEAR RECORD COUNT 
005065 003324 {LR —RECCNT(RS) 
004737 015400 ens PC-NEXTU ;DO IT FOR ALL DEVICES. 
000724 BR 503528 
503538: 


IF R2 EQ #0 THEN 7 IF THERE ARE NO UNITS: 
005702 TST 


R2 
001026 BNE 50360$ 
PRINTF #AUDR°M PRINT ALL UNITS DROPPED, 

012746 MOV MAUDRPM , ~ (SP) 
012746 00000 #1,~-(SP) 
010600 : SP RO 
104417 CSPNTF 
062706 ADD #4 ,SP 
DELAY 2000. GO TO SUPERVISOR, WAIT 2 SECONDS. 

MOV #2000. .(PC)+ 


IF R3 LT #0 THEN 


LET PASCNT(R5) := PASCNT(RS) + #1 
ELSE 


012727 003720 
000000 
002116 5 bsDLy.cPcrs 
177772 ~6(PC) 
: BNE =.= 
177756 ~22(PC) 
BNE -20 
/G0 TO SUPERVISOR. CHECK TTY. 
;DO CLEAN CODE + ABORT PASS. 
TRAP 


50360$: 
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032775 
001420 
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016546 
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000000 


002211 
000020 
015332 


002532 


000001 


003364 
003364 


002320 
000001 
002116 
177772 
177756 


000200 


000100 


003456 


177777 


003364 


000025 


002452 


002462 


002462 
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SETPRI #PRIOO 


IFB IREC EQ #0 AND #ADR NOTSETIN OPFLAG THEN 


JSR PC,FIRSTU 
WHILE DEVTBL(RS) NE #END DO 


BEGIN COUNTER : 
INCR TIME1 FROM #1 TO #25 BY #1 


LE. »DB(R5) 
DEL... 1 


:= AGSCPK ;AND 


WAIT 


IF #TS.SSR SETIN @TSSR(R5) TH 


IF #TS.OFL NOTSETIN @TSSR(R 


LEAVE COUNTER 
ELSE 
PRINTF #OFLINM,DEVTBL (RS) 


ENDIF 
ELSE 


PRINTF #NRDYM,DEVTBL (RS) 


50366$: 
50365$: 


GET UNITS STATUS 


EN 


5) THEN 


BNE 
EXIT COUNTER WHEN UNIT 
BR 5 


50371$: 
PRINT UNIT OFF a eel 10 SEC 


50372$: 


LOWER CPU PRIORITY TO 0 
MOV 


BIT 


CMP 


BEQ 
;START 3.5 MINUTE COUNTER 


BIT 
BEQ 


BIT 


BR 
50370$: 


#PRI00,RO 


TRAP CSSPRI 
7 IF ERROR RECOVERY IS ENABLED 
TSTB RE 


MADR ,OPFLAG 


BNE 5 $ 
AND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST 
;WHILE THERE Me eos. DEVICES: 


DEVTBL (RS) , END 
50363$ 


#1, TIME1 
50365$ 


TIME1 
TIME1 ,#25 
50367$ 


#GSCPK ,a@TSDB(RS) 
#1, (PC)+ 

LSDLY, (PC)+ 
o6cPC) 

=22(PC) 


#TS.SSR,@TSSR(RS 
503708 


#TS.OFL.@TSSR(RS 
50371$ 


VTBL (RS) -(SP) 
NM, -(SP) 
ae. =(SP5 


503738 


C11 
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3890 020672 016546 002532 MOV DEVTBL (RS) ,=(SP) 
3891 020476 012746 021424 MOV WNRDYM, = (SP) 
3892 020502 012746 000002 MOV #2,-(SP) 
3893 020506 010600 MOV SP. 

3894 020510 104417 TRAP CSPNTF 

3895 020512 062706 000006 ADD #6,SP 

3896 020516 ENDIF 

3897 020516 503738: 

3898 020516 INCR TIME2 FROM #1 TO #13 BY #1 

3899 020516 012737 000001 003366 MOV #1, TIME2 
3900 020524 000402 BR 50374$ 
3901 020526 50375$: 

3902 920526 005237 003366 INC TIME2 
3903 0205 503748: 

3904 020532 023727 003366 000013 CMP TIME2,#13 
3905 020540 003016 BGT 50376$ 
3906 020542 DELAY 1000. :WAIT FOR UNIT TO BE SET ON-LINE 

3907 020542 012727 001750 MOV #1000. . (PC)+ 
3908 020546 000000 . WORD 

3909 020550 013727 002116 MOV LSDLY, (PC)+ 
3910 020554 000000 .WORD 0 

3911 020556 005367 177772 DEC ~6(PC) 
3912 020562 001375 BNE 4 

3913 020564 005367 177756 DEC ~22(PC) 
3914 020570 001367 BNE .-20 

3915 020572 BREAK ;ALLOW TERMINAL INTERRUPT 

3916 020572 104422 TRAP — CSBRK 
3917 020574 ENDINC 

3918 020574 000754 BR 503758 
3919 020576 50376: 

3920 020576 END INC 

3921 020576 000664 BR 503668 
3922 020600 503678: 

3923 020600 END .OUNTER 

3924 020600 503648: 

3925 020600 IF TIME1 GT #25 THEN :IF OFF LINE FOR 3.5 MINUTES 

3926 020600 023727 003364 000025 CMP TIME1 #25 
3927 020606 003404 BLE 503778 
3928 020610 004737 011206 JSR PC,MOVMSG :GET MESSAGE PACKET 

3929 020614 004737 011702 JSR PC,TCC1 sPRINT ERROR AND DROP OFF LINE UNIT 

020620 ENDIF 

3931 020620 503778: 

39 ;REPEAT UNTIL ON LINE = TIMED OUT. 

3933 020620 004737 015400 JSR PC,NEXTU ‘SET UP FOR NEXT UNIT 

3934 020624 ENDDO 

3935 020624 000641 BR 503628 
3936 020626 50363$: 

3937 020626 ENDIF 

3938 020626 503618. 

3939 020626 IFB PWRFLG EQ #0 THEN 

3940 020626 105737 003453 TSTB  PWRFLG 
3941 020632 001026 BNE 504008 
3942 020634 MEMORY DATAWT ;REQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
3943 020634 104431 TRAP  CSMEM 

3944 020636 010037 003334 MOV RO, DATAWT 


3945 020642 LET DATARD := DATAWT + #DATCNT SET RD BFR AD 
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105037 
012703 
004737 


105037 
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003336 
003336 


004000 


003334 
004000 
162452 


020734 
000001 


000004 


06 
042122 053455 
051522 


a? 
020104 047111 
042507 
047515 


11-0CT=79 


ENDIF 
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INITIALIZE SECTION 


IF @DATAWT LT #DATCNT THEN 


PRINTF #MEMOM 


DOCLN 


ENDIF 


LET CHGFLG :B= #0 


LET R3 := 


MENDFLG 


JSR PC,CLRERR 


MOV 


7 WARN OPERATOR 


;AND ABORT PASS Tap 
:DIAG MUST BE RE-LOADED IN A sat =} Fa MEMO 


50400$: 


:CLR CHANGE CMD SEQ TBL FLAG. 
CLRB 


MOV 
CLEAR ALL FLAGS. 


LET PWRFLG :B= #0 > CLEAR THE POWER FAIL FLAG. 
CLRB 
EXIT INIT 
TRAP 
» WORD 
MEMOM: .ASCII /ZAFREE MEMO TOO SMALL FOR RD-WR BFRSZN/ 
-ASCIZ /%ZARE-LOAD IN LARGER MEMOZN/ 
EVEN 
ENDINIT 
L10012: 
TRAP 


DATAWT ,DATARD 
#DATCNT ,DATARD 


ADD 
;WHEN NOT ENOUGH FREE to * AVAILABLE 


@DATAWT ,ADATCNT 
50401$ 


WMEMOM , = (SP) 
#1,-(SP) 


CSDCLN 


CHGFLG 
#ENDFLG,R3 


PWRFLG 


CSEXIT 
L10012-. 


CSINIT 
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004737 
026527 
001525 
105037 
012746 


017502 


012700 
104436 


105737 
001423 


005265 
016546 


016537 


010500 
006200 


104451 
000452 


012775 
004737 
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015332 
002532 
003454 
000340 
021454 
000004 
000003 
000010 
002462 


177777 


015640 


002452 


11 


AUTO DROP SECTION 


- SBTTL 


AUTO DROP SECTION 


p++ 
sSECTION EXECUTED AFTER THE INIT CODE WHEN ‘ADR"* FLAG IS SET BY OPERATOR 


SECTION CHEKS FOR A VALID INTERFACE LOCATION. 


FROM INTERFACE 


LSAUTO:: 


BGNAUTO 


JSR PC,FIRSTU 
WHILE DEVTBL(RS) NE #END DO 


LET TRAPD4 :B= #0 
SETVEC #4, 4TRAP4 ,#PRIO7 


LET R2 := @TSSR(RS) 
CLRVEC #4 


IFB TRAPD4 NE #0 THEN 


LET FTLCNT(RS) 
PRINTF #AUTODM, TSSR(R5) 


LET DROPN := DEVTBL(RS) 
LET RO := RS SHIFT -1 


DODU RO 
ELSE 


LET aTSDB(R5) 
JSR PC,WS 


:= AGSCPK 


FIND FIRST UNIT 


3SET VECTOR 4 


ADDRESS TS11 INTERFACE 


:CLEAR VECTOR AT 


:= FTLCNT(RS) + #1 


;PRINT ERROR 


SAVE # OF UNIT Lk 
;RO=LOGICAL DEVICE NUMBE 
MOV 


50402$: 


4 


AD 
TO BE D 


DROPS UNIT IF NO RESPONSE 


DEVTBL (RS) ,4END 
50403$ 


TRAPD4 
#PRIO7,-(SP) 


#10,SP 

@TSSR (RS) .R2 
#4,RO 

CSCVEC 

TRAPD4 

50404$ 

FTLCNT (RS) 

Li aon tT 


ROPPED . 
DEVTBL (RS) ,DROPN 


RS .RO 


ASR RO 
;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
TRAP C$DO0DU 


50404$: 
;SEND GET STATUS COMMAND 


SR ;WAIT 
IF #TS.SSR SETIN @TSSR(RS) THEN 


BR 


MOV 


50405$ 


#GSCPK ,@TSDB(R5) 
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4048 021206 032775 000200 002462 BIT ATS.SSR,@TSSR(RS 
4049 021214 001423 BEQ 50406$ 
4050 021216 IF #TS.OFL SETIN @TSSR(R5) THEN 
4051 021216 032775 000100 002462 BIT MTS.OFL ,@TSSR(RS 
4052 021224 001416 BEQ 50407$ 
4053 021226 LET FTLCNT(RS) := FTLCNT(RS) + #1 
4054 021226 005265 003314 INC FTLCNT(RS. 
4055 021232 PRINTF #OFLINM,DEVTBL (R5) 
4056 021232 016546 002532 MOV DEVTBL (RS) ,-( SP) 
4057 021236 012746 005127 MOV #OF LINM,-(SP) 
4058 021242 012746 000002 MOV #2,-(SP) 
4059 021246 010600 MOV SP,RO 
4060 021250 104417 TRAP CSPNTF 
4061 021252 062706 000006 ADD #6,SP 
4062 021256 004737 015554 JSR PC ,DROPUA 
4063 021262 ENDIF 
4064 021262 50407$: 
4065 021262 ELSE 
4066 021262 000416 BR 50410$ 
4067 021264 50406$: 
4068 021264 LET FTLCNT(RS) := FILCNT(RS) + #1 
4069 021264 005265 003314 - INC FTLCNT(RS) 
4070 021270 PRINTF #NRDYM,DEVTBL (RS) 
4071 021270 016546 002532 MOV DEVTBL (RS) ,-(SP) 
4072 021274 012746 021424 MOV ANRDYM, ~(SP) 
4073 021300 012746 000002 MOV #2,-(SP) 
4074 021304 01 MOV P 
4075 021306 104417 TRAP CSPNT 
4076 021310 062706 000005 ADD #6,SP 
4077 021314 004737 015554 JSR PC,DROPUA 
4078 021320 ENDIF 
4079 021320 50410$: 
4080 021320 ENDIF 
4081 021320 50405$: 
4082 021320 004737 015400 JSR PC,NEXTU 
4083 021324 ENDDO 
4084 021324 000647 BR 50402$ 
4085 021326 50403$: 
4086 
4087 021326 ENDAUTO 
4088 021326 L10013: 
pss td 021326 104461 TRAP CS$AUTO 
4091 021330 040445 052502 020123 AUTODM: .ASCII /%ABUS TRAP AT %06%N/ 
4092 021336 051124 050101 040440 
4093 021344 020124 047445 022466 : 
4094 021352 116 
4095 021353 045 044501 052116 -ASCIZ /ZAINTERFACE BAD OR NOT SET TO ABOVE AD2N/ 
4096 021360 051105 040506 042503 
4097 041040 042101 04 


000116 
4102 021424 040445 0471 ~ 052111 NRDYM: .ASCIZ /%AUNIT %D1%A NOT RDY%N/ 
4103 021432 022440 0305u4 040445 


MISCELLANEOUS SECTIONS MACY11 30(1046) 11-00 T=79 14:02 PAGE 98 
CZTSHC.P11 11-0CT=79 13:59 AUTO DROP SECTION 


021440 0470460 052117 051040 
021446 054504 047045 000 
021454 -EVEN 


DEVICE BUS TRAP HANDLER 
OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
0: NO TRAP 


021454 LET TRAPD4 :B= TRAPD4 + #1 


021454 105237 003454 
021460 000002 RTI 
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021462 
021462 


021462 


004737 


026527 
001410 
004 


016500 


104432 
000002 


104412 


az 


015332 


002532 
011152 
002472 
015400 
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-SBTTL CLEANUP CODING SECTION 


ptt 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 


BGNCLN 


LSCLEAN:: 


L10014: 


JSR 


WHILE DEVAL (RS) NE #END DO 


PC,FIR 


JSR PC,WSSR 
CLRVEC 
JSR = PC,NEXTU 
ENDDO 
EXIT CLN 
EVEN 
ENDCLN 


TSVCT(R5) 


;WAIT FOR UNIT READY OR TIMEOUT, 
TRELEASE INTERRUPT VECTORS FOR ALL 


FIND NEXT UNIT. 


ZFIND FIRST UNIT. 
50411$: 


50412$: 


CMP 
BEQ 


MOV 
TRAP 


BR 


TRAP 
. WORD 


TRAP 


DEVTBL (RS) , #END 
50412$ 

L DEV 
TSVCT (RS) .RO 
CS$CVEC 


50411$ 


CSEXIT 
L10014-. 


CSCLEAN 
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021574 
021574 
021574 
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DR ON 


OP UNIT SECTI 


-SBTTL DROP UNIT SECTION 


hd 
; THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


;_ TO NO 


LONGER BE TESTED. 


THAT CODE SHALL BE EXECUTED WHEN DODU 


sMACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 


L$DU:: 


L10015: 


BGNDU 


LET R5 


LET DEVTBL(RS) := 
CLRVEC TSVCT(RS) 


PRINTF 


EXIT DU 


EVEN 
ENDDU 


:= RO SHIFT 7 


#DROPDM , DROPN 


3R5 = LOGICAL DEVICE NUMBER X 2. 
MOV 


ASL R 
SET NOT IN USE FLAG ogy DEVICE. 
RELEASE THE INTERRUPT yee, 


TRAP 
PRINT DROP DEVICE MESSAGE 
MOV 


TRAP 


RO,R5 

5 
#NINUSE ,DEVTBL (R 
TSVCT(R5S) ,RO 
CS$CVEC 


DROPN , = (SP) 


C$DU 
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-SBTTL ADD UNIT SECTION 


++ 
; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 
;  "EFLAUNIT’' IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


021576 BGNAU 
021576 33 


021576 LET RS := RO SHIFT 1 3RS = LOGICAL DEVICE NUMBER X 2. 
010005 MOV 
006305 ASL 

LET DEVTBL(R5) := RO STORE UNIT # IN DEVICE TABLE. 
010065 002532 MOV RO,DEVTBL (R5) 
GPHARD RO,RO ;GET HARDWARE P TABLE FROM SUPER. 
104442 TRAP C$GPHRD 
LET TSSR(R5) := (RO) SAVE TSSR ADDRESS. 
011065 002462 MOV (RO), TSSR(R5) 
LET TSDB(R5) := (RO)+ = 42 SAVE TSDB ADDRESS. 
012065 002452 MOV (RO) +, TSDB(RS) 
162765 000002 002452 SUB #2, TSDB(R5) 
LET TSVCT(R5) := (RO) ;SAVE INTERRUPT VECTOR ADDRESS. 
011065 002472 MOV (RO), TSVCT (RS) 
SETVEC TSVCT(R5),TS4INT(RS) ,AINTPRI SET UP INTERUPT PROCESSING CONDITIONS. 
012746 MOV MINTPRI ,~(SP) 
TS4INT (RS) ,=(SP) 
TSVCT (RS) ,=(SP) 
#3,-(SP) 
C$SVEC 


A #10,SP 
LET INTFLG(R5) : :CLEAR INTERRUPT FLAGS. 
003416 C INTFLG(RS) 


EXIT AU 


RO,R5 
R5 


000167 ‘ JSJMP 
000000 . L10016-2-. 


021670 ENDAU 
021670 10016: 
021670 104452 


021672 ENDMOD 
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026527 
001434 
016502 


062702 


011265 
042765 


026527 
001014 


016546 


003441 
003440 


022530 
022504 
006510 
015332 
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002502 
000012 


002522 
177400 


003254 


000010 
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ADD UNIT SECTION 


- TITLE HARDWARE JESTS 
-SBTTL TEST 1: BASIC FUNCTIONS. 


p++ 
; TEST TO EXECUTE ALL TSO4 FUNCTIONS. 


BGNMOD 
BGNTST 

Ties 
LET RANDOM :B= #0 
LET EXPBOT :B= #0 
BGNSUB 

Ts) 
LET R2 := ABFSEQO 
JSR PC,BFSEQ 


JSR PC,EXALL 
JSR PC,FIRSTU 
WHILE DEVTBL(R5) NE #END DO 


LET R2 := MSGPKA(RS) 
LET R2 := R2 + #12 
LET TS4CL(R5) := 


IF PASCNT(R5) EQ #1 THEN 


PRINTF #CODELM,DEVTBL (RS), TS4CL(R5) 


ENDIF 


JSR 
ENDDO 


PC,NEXTU 


:CLR THE RANDOM OPERATIONS FLAG. 
CLRB 


RANDOM 
;CLR EXPECT BOT FLAG. 
CLRB EXPBOT 
; SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
TRAP C$8SUB 
sADR OF CMD SEQ. 
MOV MBF SEQO ,R2 


T UP CMD SEQ 


3St ° 
ty gg CMD SEQ ON ALL DEVICES. 
UNIT. 


FIND THE FIRST 
“WHILE THERE ARE MORE DEVICES: 
504138: 


CMP DEVTBL (RS) ,4END 
BEQ 50414$ 


MOV MSGPKA(R5S) ,R2 


;GET MSG PACKET ADR, 
GET XSTAT2 ADR, 
(R2) CLR.BY #177400 


ADD #12,R2 

STORE CODE LEVEL FROM DTR BYTE, 
MOV (R2) ,TS4CL(R5) 
BIC #177400, TS4CL (RS 
CMP 


PASCNT (RS) , #1 
BNE 
+ ta LEVEL 


TS4CL(R5) ,-(SP) 
DEVTBL (R55 ,-(SP) 


7I1F THIS IS PASS 1 THEN: 


PRINT THE TSO4 


TRAP CSPNTF 
ADD #10,SP 
50415$: 
7FIND NEXT UNIT. 
50413$ 


BR 
504148: 
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022054 
022054 
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022070 
022072 
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022072 
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022130 
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104403 


104402 
012702 
004737 
004737 
105037 


104403 


104402 
012702 
004737 
004737 


104403 


104402 
012702 
004737 
004737 


104403 


104402 
012702 
004737 
004737 


104403 


022602 


003452 


022614 
022504 
006510 


022706 
ascore 


022760 
022504 
006510 
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TEST 


L10020: 


T1.2: 


L10021: 


T1432 


L10022: 


Tl: 


L10023: 


T1,3% 


L10024: 


71.6: 


BASIC FUNCTIONS. 
ENDSUB 


BGNSUB 


LET R2 := #BFSEQ1 
JSR PC, fou 
JSR PC,EXALL 

LET STAFLG :B= #0 


ENDSUB 
BGNSUB 


LET R2 := ABFSEQ2 


JSR PC ,BFSEQ 
JSR PC,EXALL 


LET R2 := #BFSEQ3 


JSR PC ,BFSEQ 
JSR PC, EXALL 


LET R2 := #BFSEQ4 


JSR PC ,BFSEQ 
JSR PC, EXALL 


TRAP C$ESUB 


; SUBTEST 2 = REWIND. 


TRAP C$8SUB 


z:ADR OF CMD SEQ. 


SET UP_CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 
:CLEAR START FLAG 


MOV HBF SEQ1 ,R2 


CLRB STAFLG 


TRAP CSE SUB 


; SUBTEST 3 - WRITE/VERIFY. 


TRAP C$8SUB 


sADR OF CMD SEQ. 


MOV HBF SEQ2,R2 
SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP C$ESUB 


; SUBTEST 4 - WRITE TAPE MARK, ERASE. 


TRAP C$8SU8 


:ADR OF CMD SEQ. 


MOV #BF SEQ3,R2 
T UP 


iSE CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 


; SUBTEST 5 - SPACE FILES. 


TRAP C$8SUB 


:ADR OF CMD SEQ. 


MOV MBF SEQ4 ,R2 
SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 


; SUBTEST 6 - SPACE RECORDS. 
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023022 


023074 
022504 
006510 


023126 
022504 
006510 


023160 
022504 
006510 


023212 
022504 
006510 
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1: BASIC FUNCTIONS. 


LET R2 := 


L10025: 


T1 


o¥ 


L10026: 


T1.8s 


L10027: 


71.9: 


L10030: 


™1.10: 


L10031: 


#BF SEQS 


PC BF SEQ 
PC,EXALL 


= ABFSEQ6 


PC ,BFSEQ 
PC,EXALL 


= #BFSEQ7 


PC,BFSEQ 
PC,EXALL 


= ABFSEQ8 


PC,BF SEQ 
PC,EXALL 


= ABFSEQ9 


PC,BFSEQ 
PC,EXALL 


C$8SUB 


TRAP 
ZADR OF CMD SEQ. 

MOV WBF SEQ5,Re 
:SET UP CMD SEQ. 
‘EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP  C$ESUB 
;SUBTEST 7 = WRITE RETRY. 

TRAP — C$8SUB 
ZADR OF CMD SEQ. 

MOV MBF SEQ6 RZ 
:SET UP CMD SEQ 
SEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP _— C$ESUB 
;SUBTEST 8 - READ REV RETRY. 

TRAP —_ C$8SUB 
ZADR OF CMD SEQ. 

MOV ABF SEQ7,.R2 
:SET UP CMD SEQ. 
SEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP  C$ESUB 
;SUBTEST 9 - READ FWD RETRY. 

TRAP  C$8SUB 
zADR OF CMD SEQ. 

MOV #BF SEQ8,R2 
:SET UP CMD SEQ 
[EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP  C$ESUB 
; SUBTEST 10- CLEAN. 

TRAP _— C$8SUB 
ZADR OF CMD SEQ. ’ 

MOV #BF SEQ9,R2 


SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 
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CZTSHC.P11 11-OCT-79 13:59 TEST 1: BASIC FUNCTIONS. 
rr 022250 104403 TRAP C$ESUB 
4404 022252 BGNSUB ;SUBTEST 11 = WTV SWAPPED DATA BYTES. 
4405 022252 11.11: 
prt 022252 104402 TRAP C$8SUB 
4408 022254 LET R2 := #BFSE10 zADR OF CMD SEQ. 
4409 022254 012702 023234 MOV #BFSE10,R2 
4410 022260 004737 022504 JSR PC BF SEQ :SET_UP CMD SEQ. 
4411 022264 004737 006510 JSR PC,EXALL sWRITE/VERIFY RECORDS 1 AND 2. 
4412 022270 LET SWBFLG :B= #1 ENABLE BYTE SWAPPING. 
4413 022270 112737 000001 003444 MOVB #1, SWBFLG 
4414 022276 004737 006510 JSR PC,EXALL sWRITE/VERIFY RECORDS 3 AND 4. 
4415 022302 LET SWBFLG :B= #0 DISABLE BYTE SWAPPING. : 
4416 022302 105037 003444 CLRB SWBFLG 
4417 022306 ENDSUB 
4418 022306 L10032: 
r] ye 022306 104403 TRAP C$ESUB 
4421 022310 LET R2 := DATAWT + #10. : INIT WRITE BUFFER POINTER. 
4422 022310 013702 003334 MOV DATAWT ,R2 
4423 022314 062702 000012 ADD #10. ,R2 
4424 022320 WHILE R2 NE DATAWT DO ;UNTIL 10 BYTES HAVE BEEN SWAPPED. 
4425 022320 50416$: 
4426 022320 020237 003334 CMP R2,DATAWT 
4427 022324 001402 BEQ - 50417$ 
4428 022326 000342 SWAB -(R2) :SWAP DATA BYTES IN WRITE BUFFER. 
4429 022330 ENDDO 
4430 022330 000773 BR 50416$ 
4431 022332 ‘ 50417$: 
4432 022332 LET T1SWB :B= T1SWB + #1 :SET T1 SWAP BYTES FLAG FOR ‘'CKDATA’’ SUBR 
reg 022332 105237 003447 INCB T1SWB 
4435 022336 *BGNSUB ;SUBTEST 12 - READ SWAPPED DATA BYTES. 
4436 022336 . T1.12: 
rh 14 022336 104402 TRAP C$8SUB 
4439 022340 » LET CMDWRD := #RDR :CMD IS READ REV. 
4440 022340 012737 104401 003346 MOV #RDR , CMDWRD 
4441 022346 004737 014402 JSR PC, VFEXC VERIFY ODD LENGTH SWAP (RECORD 4). 
4442 022352 LET CMDPKT+CP.CNT := #12 — —  ;CHANGE BYTE COUNT TO 10. 
4443 022352 012737 000012 002316 . MOV #12,CMDPKT+CP.CN 
4444 022360 004737 014402 JSR PC, VFEXC VERIFY EVEN LENGTH SWAP (RECORD 3). 
4445 022364 LET SWBFLG :B= #1 ENABLE BYTE SWAPPING. 
4446 022364 112737 000001 003444 MOVB #1, SWBFLG 
4447 022372 é LET CMDPKT+CP.CNT := #11 CHANGE BYTE COUNT TO 9. 
4448 022372 012737 000011 002316 ? MOV #11, CMDPKT+CP.CN 
4449 022400 004737 014402 JSR PC, VFEXC VERIFY ODD LENGTH SWAP (RECORD 2). 
4450 022404 LET CMDPKT+CP.CNT := #12 CHANGE BYTE COUNT TO 10. 
4451 022404 012737 000012 002316 a MOV #12,CMDPKT+CP.CN 
4452 022412 004737 014402 - JSR PC, VFEXC VERIFY EVEN big SWAP (RECORD 1). 
4453 022416 ; LET CMDWRD := #RDF CMD IS READ FWD. 
4454 022416 012737 104001 003346 MOV #RDF , CMD/ARD 
4455 022424 004737 014402 JSR PC, VFEXC VERIFY EVEN LENGTH SWAP (RECORD 1). 
4456 022430 let CMDPKT+CP.CNT := #11 CHANGE BYTE COUNT 


TO 9. 
4457 022430 012737 000011 002316 MOV #11 -CMDPKT+CP.CN 
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BASIC FUNCTIONS. 


JSR PC, VFEXC 
let SWBFLG :B= #0 


LET CMDPKT+CP.CNT := #12 


JSR PC, VFEXC 
LET CMDPKT+CP.CNT := #11 


JSR PC, VFEXC 
END SUB 


LET T1SWB :B= #0 


EXIT TST 


MOV 
; VERIFY ODD LENGTH SWAP (RECORD 4). 


CLEAR T1 SWAP BYTES ~7 
L 


VERIFY ODD LENGTH SWAP (RECORD 2). 
DISABLE BYTE SWAPPING. 


; CHANGE BYTE COUNT TO 10. 


CLRB SWBF LG 


#12, CMDPKT+CP.CN 
VERIFY £ VEN LENGTH SWAP (RECORD 3). 
[CHANGE BYTE COUNT TO 9. 

#11, CMDPKT+CP.CN 


TRAP CSESUB 


T1SWB8 


022610 
022612 


022614 
022616 
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1 


HARDWARE MACY11 
CZTSHC P11 1-0CT- 


1-79 


012701 
021227 
001402 
012221 


000773 


012711 
000207 


10464) 


30 
13:59 


003460 


177777 


177777 


11-OCT-79 14:02 PAGE 107 

TEST 1: BASIC FUNCTIONS. 
SUBROUTINE TO MOVE AC 

: R2 = FWA 


BF SEQO: 


BFSEQ1: 


BF SEQ2: 


INPUTS 
TS 


OUTPUTS: 
REGISTERS: 
CALLS: 


LET R1 


:= #CMDSEQ 





C 12 


OMMAND 


WHILE (R2) NE #END DO 


LET (R1)+ : 


ENDDO 


LET (R1) 
RTS 


BASIC FUNCTION COMMAND SEQUENCE 


- WORD 


:= MEND 


PC 


SCH 
00 


ror 


(R2)+ 


SEQUENCE TO THE SEQUENCE TABLE. 
COMMAND SEQUENCE. 


; INIT SEQ TABLE ADDRESS. 
;WHILE THERE ARE MORE COMMANDS: 
50420$: 
CMP 
BEQ 
sMOVE COMMANDS TO SEQ ~~ 


50421$: 
STORE END OF SEQUENCE CODE. 
MOV 
;RETURN. 


;SET CHAR. 200. (1) 
DRIVE INIT. (2) 
SET CHAR. 20 (3) 
GET STATUS. (4) 
SET CHAR. 40. (5) 
REWIND TWICE. (6) 
sWRITE/VERIFY PAT 1. (7) 


#CMDSEQ,R1 


(R2) , END 
504218 
(R2)+,(R1)+ 


504208 


#END, (R1) 
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1 
WIV 
— 


sWTV PAT 2. 


WTV ;WTV PAT 3. 
DATCNT 

1 

WTV sWTV PAT 4. 
“tie 

4 

WTV 
—— 
5 

WTV 
— 


WIV PAT 5. 
;WTV PAT 6. 


WTV zWTV PAT 0. 
whew 


BF SEQ3: ‘ ;WRITE TAPE MARK. 
;WRITE 10 RECORDS. 
;ERASE 10 TIMES. 


;WRITE TAPE MARK. 


;WTM RETRY 


BF SEQ4: $ SPACE 2 FILES REV. 


SPACE 2 FILES FwD. 
022774 
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BFSEQS: 
BF SEQ6: 
BF SEQ7: 
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BASIC FUNCTIONS. 


E 12 


SPACE 2 FILES REV. 


SPACE 2 FILES FWD. 


;REWIND. 


SPACE 7 RECORDS FWD. 


SPACE 7 RECORDS REV. 


;SPACE 7 RECORDS FWD. 


SPACE 7 RECORDS REV. 


REWIND. 


sWRITE. 


WRITE RETRY. 


READ REV. 


;READ NEXT REV. 


;READ NEXT FWD. 


(21) 


(22) 


(23) 


(24) 


(25) 


(26) 


(27) 


(28) 


(29) 


(30) 
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“tire 


1 
END 


BF SEQ8: READ FWD. 
READ PREVIOUS FWD. 
READ PREVIOUS REV. 


0232 000001 

023210 177777 

023212 101012 BFSEQ9: . ; CLEAN. 
000001 1 


REWIND 


END OF SEQUENCE. 
BFSE10: ;WRITE/VERIFY EVEN LENGTH. 


sWRITE/VERIFY ODD LENGTH. 


000000 
023254 177777 . WORD 
~EVEN 


023. °% ENDTST 
023256 L10°17: 
023256 CSETST 
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003441 


003362 


-SBTTL TEST 2: DATA RELIABILITY. 


G 12 


5+? 
TEST TO CHECK THE DATA RELIABILITY OF 


BGNTST 
T2:: 
LET RANDOM :B= #1 
LET EXPBOT :B= #0 
LET R2 := #DATCNT = #1 
LET LENMSK := COMP R2 
JSR PC,SETCH 
IFB STAFLG NE #0 THEN 
JSR PC,SETRW 
LET STAFLG :B= #0 
ENDIF 
LET (R1)+ := AWTV 
LET (R1)+ := #DATCNT 


LET R2 := COMP #RNOPSC 


LET (R1)+ := R2 
LET (R1)+ := #RANP 
REPEAT 
WHILE R1 LT #SEQEND DO 
LET RANS := RANS + RANB 
LET R2 := 
JSR PC,@RANCMD(R2) 
ENDDO 
LET (R1) := #END 
JSR PC, EXALL 


THE TSO4. 


:SET THE RANDOM OPERATIONS FLAG. 
MOVB 


CLEAR EXPECT BOT FLAG. cure 
;SET UP THE RECORD cactoett 9 ae. 


;ALLOW MAXIMUM BUFFER. 


COM 
;CMD 1 = SET CHARACTERISTIC. 
IF STARTING THEN: 


TSTB 
BEQ 
; CMD2=REWIND 
;CLR START FLAG. 
CLRB 


50422$: 
;CMD3 = WRITE/ VERIFY. 


MOV 
;SET BRF TO MAX FOR senke GENERATION. 


MOV 

COM 
331 OPERATIONS. 

MOV 
;RANDOM PATTERN. 

MOV 


;REPEAT TO EOT: 
50423$: 

sFILL SEQ TBL WITH RANDOM CMDS. 
50424$: 


CMP 
BGE 


ADD 
RANS CLR.BY #177741 ;R2 = RANDOM # (0 - 7 
Vv 


BIC 
SET UP A RANDOM CMD + BRF. 


#1 ,RANDOM 
EXPBOT 
#DATCNT ,R2 
R2 


R2,LENMSK 
LENMSK 


STAFLG 
50422$ 


STAFLG 
MWTV,(R1)+ 


MDATCNT, (R1)+ 
#RNOPSC ,R2 
R2 


R2,(R1)+ 
M#RANP ,, (R1) + 


R1, #SEQEND 
50425$ 
RANB . RANS 
RANS ,R2 
#177741,R2 


50424% 


50425$: 
;STORE END OF SEQUENCE CODE IN TABLE. 


END, (R1) 


MOV 
;GO EXECUTE ALL CMDS IN SEQUENCE TABLE. 


H 12 ae 
HARDWARE TESTS MACY11 30(1046) 11-OCT-79 14:02 PAGE 112 | 
CZTSHC.P11 11-OCT-79 13:59 TEST 2: DATA RELIABILITY. 


4746 023420 LET R? := #CMDSEQ INIT CMD SEQ TBL POINTER, 

4747 023420 012701 003460 V #CMDSEQ,R1 
4748 023424 UNTIL R2 NE #0 sREPEAT UNTIL EOT IS REACHED 

4749 023424 005702 TST R2 

4750 023426 001753 BEQ 50423$ 

4751 023430 LET ALLEOT :B= ALLEOT + #1 FLAG ALL UNITS @ EOT 

4752 023430 105237 003450 INCB ALLEOT 
4753 023434 000240 NOP 

4754 023436 000240 NOP 

4755 023440 000240 NOP 

4756 023442 004737 024764 JSR PC, TSWEO! ;WRITE ONE RECORD BEYOND EOT ON ALL UNITS 
4757 ;SO THAT SHORTER READ STOP DISTANCE 

4758 ; SHALL POSITION HEAD IN CLEAN IRG GAP 

4759 ;READ REV THAT EXTRA REC TO RE=POSITION THE TAPE 
4760 023446 004737 023600 JSR PC ,RANRD ;SET UP READ REV/FWD CMDS, 

4761 023452 LET CMDSEQ+4 := COMP #RNOPSC 7:4 OF RECORDS FOR READ REV. 

4762 023452 012737 177740 003464 MOV #RNOPSC , CMDSEQ+4 
4763 023460 005137 003464 COM CMDSEQ+4 
4764 023464 LET CMDSEQ+14 := CMDSEQ+4 :# OF RECORDS FOR READ FORWARD. 

4765 023464 013737 003464 003474 MOV CMDSEQ+4 , CMDSEQ+ 
4766 023472 LET (R1) := #END STORE END OF SEQUENSE CODE IN SEQ TABLE. 
4767 023472 012711 177777 MOV ND, (R1) 
4768 023476 004737 006510 JSR PC,EXALL :GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
4769 023502 LET ALLEOT :B= #0 :CLEAR ALL UNITS @ EOT FLAG 

4770 023502 105037 003450 CLRB ALLEOT 

4771 023506 LET RPTFLG :B= #1 sREQUEST PERFORMANCE REPORT DURING REWIND. 
4772 023506 112737 000001 003443 MOVB #1,RPTFLG 
4773 023514 LET R1 := #CMDSEQ ; INIT SEQ TBL POINTER, 

4774 023514 012701 003460 MOV #CMDSEQ,R1 
4775 023520 004737 006470 JSR PC,SETRW STORE REWIND IN SEQ TBL, 

4776 0235-4 LET (R1) := MEND STORE END IN SEQ TBL, 

4777 023524 012711 177777 MOV MEND, (R1) 
pile 023530 004737 006510 JSR PC,EXALL EXECUTE REWIND CMD ON ALL UNITS 

4780 023534 EXIT TST 

4781 023534 104432 TRAP CSEXIT 
4782 023555 000174 -WORD 110034-. 
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CZTSHC.P11 11=-0CT=+79 13:59 TEST 2: DATA RELIABILITY. 
4784 ; ADDRESSES OF SUBROUTINES — TO SET UP RANDOM OPERATIONS IN 
re #4 ; THE DATA RELIABILITY TEST 
4787 023540 023666 RANCMD: RANWV SWRITE/VERIFY. 
4788 023542 023654 RANWR WRITE. 
4789 023544 023654 RANWR WRITE 
023546 023654 RANWR WRITE 
4791 023550 023654 RANWR WRITE 
4792 023552 023654 RANWR WRITE 
4793 023554 023654 RANWR WRITe 
4794 023556 023654 RANWR WRITE 
4795 60 023600 RANRD ;READ 
023562 023600 RANRD ;READ 
4797 564 023600 RANRD READ 
4798 023566 2 RANRD sREAD 
4799 023570 023600 RANRD READ. 
4800 023572 02 RANRD :R 
4801 023574 023600 RANRD ;READ. 
4802 023576 023600 RANRD sREAD. 
4803 
4804 
4805 
4806 
4807 
4808 ; SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
4809 f INPUTS: 
4810 hy OUTPUTS: .- 
4811 3 REGISTERS: R2 
re HH 1 ; CALLS: 
4814 023600 RANRD: LET (R1)+ := #RDR ZSTORE READ REV CMD. 
4815 023600 012721 104401 - MOV #RDR, (R1)+ 
4816 023604 LET (R1)+ := #DATCNT SET BRF TO MAX FOR READ RANDOM LENGTHS. 
4817 023604 012721 004000 MOV #DATCNT, (R1)+ 
4818 023610 LET RANB := RANB + RANS 
4819 023610 063737 003362 003360 ADD RANS , RANB 
4820 023616 LET R2 := RANB CLR.BY #RNOPSC 
4821 023616 013702 003360 MOV RANB ,R2 
4822 023622 042702 177740 BIC #RNOPSC ,R2 
4823 023626 LET (R1)+ := R2 ;SET RANDOM # OF OPERATIONS. 
4824 023626 010221 MOV R2,(R1)+ 
4825 023630 LET (R1)+ := MRANP ;RANDOM PATTERN. 
4826 023630 012721 000007 MOV MRANP , (R1) + 
4827 023634 LET (R1)+ := #RDF :STORE READ FWD CMD. 
4828 023634 012721 104001 MOV RDF ,(R1)+ 
4829 023640 LET (R1)+ := #DATCNT ;SET BRF TO MAX TO READ RANDOM LENGTHS. 
4830 023640 012721 004000 MOV #DATCNT, (R1)+ 
4831 023644 LET (R1)+ := R2 ;SET RANDOM # OF OPERATIONS. 
4832 023644 010221 MOV R2,(R1)+ 
4833 023646 LET (R1)+ := #RANP ;RANDOM PATTERN. 
4834 023646 012721 000007 MOV M#RANP , (R1) + 


4835 023652 000207 RTS PC 
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CZTSHC.P11 11-OCT-79 13:59 TEST 2: DATA RELIABILITY. 
4836 ; SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 
4837 : INPUTS: 
48 3 OUTPUTS: 
4839 ; REGISTERS: 
1 4 | 7 CALLS: 
4842 023654 RANWR: LET (R1)+ := #WRT ;STORE WRITE CMD. 
4843 023654 012721 104005 MOV MWRT,(R1)+ 
4844 023660 004737 023700 JSR PC,RANW STORE BRF, # OF OPERATIONS, PATTERN. 
4845 023664 090207 RTS PC 
4846 
4847 
4848 
2850 
4851 : SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
4852 ; INPUTS: 
4853 : OUTPUTS: 
4854 $ REGISTERS: 
rr 234 ; CALLS: 
4857 023666 RANWV: LET (R1)+ := #WTV ;STORE WRITE/VERIFY CMD. 
4858 023666 012721 104105 MOV MWTV,(R1)+ 
4859 023672 004737 023700 JSR PC,RANW ;STORE BRF, # OF OPERATIONS, PATTERN. 
4860 023676 000207 RTS PC 
4861 
4862 
4863 
4864 
4865 
4866 ; SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 
4867 ; SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS . 
4868 ; INPUTS: 
4869 : OUTPUTS: 
4870 : REGISTERS: R2 
‘ay ; CALLS: 
4873 023700 RANW: LET (R1)+ := #DATCNT zSET BRF TO MAX FOR PATTERN GENERATION. 
4874 023700 012721 004000 MOV #DATCNT, (R1)+ 
4875 ;RANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
4876 023704 LET RANB := RANB + RANS 
4877 023704 063737 003362 003360 ADD RANS , RANB 
4878 023712 LET R2 := RANB CLR.BY A#ARNOPSC 
4879 023712 013702 003360 MOV RANB ,R2 
4880 023716 042702 177740 BIC #RNOPSC ,R2 
4881 023722 LET (R1)+ := R2 7SET RANDOM # OF OPERATIONS. 
4882 023722 010221 MOV R2,(R1)+ 
4883 023724 LET (R1)+ := #RANP ;RANDOM PATTERN. 
4884 023724 012721 000007 MOV MRANP , (R1) + 
4885 023730 000207 RTS PC RETURN, 
4886 
4887 EVEN 
4888 
4889 023732 ENDTST 
4890 023732 L10034: 


4891 023732 104401 TRAP CSETST 
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- SBTTL 


itt 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 


BGNTST 
TS:s 


RANDOM :B= #1 
EXPBOT :B= #0 
R2 := #DATCNT - #1 


LENMSK := COMP R2 


PC,SETCH 

PC,SETRW 

STAFLG :B= #0 
REPEAT 


WHILE R1 LT #SEQEND DO 
JSR PC,RANWR 
NDDO 


LET (R1) := #END 


JSR __PC,EXALL 
LET R1 := #CMDSEQ 


UNTIL R2 NE #0 


LET ALLEOT :B= ALLEOT + 41 


PC, TSWEOT 


LET ALLEOT :B= #0 


JSR PC,SETRW 
LET (R1) := #END 


JSR PC,EXALL 


COM 
;CMD_1 = SET CHARACTERISTIC. 
; CMD2=REWIND 
CLEAR START FLAG 
;REPEAT TO EOT. 


50426$: 
WHILE THERE IS MORE ROOM IN SEQ TABLE: 
50427$: 


MOV * 
sREPEAT UNTIL EOT IS —_— 


T 3: WRITE COMPATABILITY/WRITE UTILITY. 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


SET THE RANDOM OPERATIONS FLAG. 
CLEAR EXPECT BOT FLAG. 

CLRB 
;SET UP THE RECORD seca *~ wae 


#1 ,RANDOM 
EXPBOT 


ADATCNT ,R2 
DEC R2 


zsALLOW MAXIMUM BUFFER. 


R2,LENMSK 
LENMSK 


CLRB STAFLG 


CMP R1,4SEQEND 
BGE 50430$ 
7STORE A WRITE CMD IN SEQUENCE TABLE. 
50427$ 
50430$: 
;STORE END OF SEQUENCE CODE IN TABLE. 
#END, (R1) 


MOV 
sEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
: INIT SEQ TBL POINTER, 
#CMDSEQ,R1 


Re 
BEQ 50426$ 


:SET ALL UNITS @ EOT FLAG 


INCB ALLEOT 


sWRITE ONE RECORD BEYOND EOT ON ALL UNITS 


:SO THAT SHORTER READ STOP DIST ~ 
SHALL POSITION HEAD IN CLEAN IRG GAP 
;READ REV THAT EXTRA REC TO RE~POSITION TAPE 
:CLEAR ALL UNITS @ EOT FLAG 
CLRB ALLEOT 


STORE REWIND IN SEQ TBL, 
STORE END IN SEQ TBL, 


MOV 
sEXECUTE REWIND CMD ON ALL UNITS 


#END, (R1) 
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EXIT TST 


- EVEN 


ENDTST 
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M 12 


TRAP 
. WORD 


TRAP 


CSEXIT 
L10035-. 


CSETST 


N 12 
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HARDW 8 
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-SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 


5 oF 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 


BGNTST 
T4:: 


LET RANDOM :B= ;SET THE RANDOM OPERATIONS FLAG. 
112737 000001 003441 MOVB #1 , RANDOM 
EXPBOT :B= SET EXPECT BOT FLAG. 
112737 000001 003440 MOVB #1 ,EXPBOT 
004737 006444 PC,SETCH :CMD 1 = rid CHARACTERISTIC. 
004737 006470 PC,SETRW > CMD2=REW 
STAFLG :B= #0 : CLEAR START” FLAG 
105037 003452 CLRB STAFLG 
(R1)+. := #RDF :CMD3 = READ FORWARD. 
012721 %+04001 MOV #RDF , (R1)+ 
; (R1)+ := #DATCNT SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
012721 004000 MOV AMDATCNT, (R1)+ 
ET (R1)+ := #77777 ;SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
012721 077777 MOV #77777, (R1)+ 
(R1)+ := #RANP PATTERN = RANDOM. 
012721 000007 MOV MRANP , (R1) + 
(R1) := #END STORE END OF SEQUENCE CODE IN TABLE. 
012711 177777 MOV #END , (R1) 
004737 006510 PC,EXALL sEXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
' ALLEOT :B= ALLEOT + #1 :FLAG TO ALLOW ALL UNITS — A+ REV 


105237 003450 INC 
R1 := #CMDSEQ : INIT CMD SEQ TBL POINTER. 

012701 003460 MOV _ ACMDSEQ, R1 
(R1)+ := #RDR :CMD1 = READ REVERSE. 

012721 104401 MOV ROR. aig 
(R1)+ := #DATCNT SET LENGTH TO MAX FOR UNKNOWN LENGTH 

012721 004000 MOV POATCNT, (R1)+ 
(R1)+ := #77777 RECORD COUNT = MAX FOR WHOLE T. 

012721 077777 MOV #77777, (R1)+ 
(R1)+ := #RANP ~ ;PATTERN = RANDOM, 

012721 000007 MOV MRANP , (R1) + 
(R1) := #END STORE END OF SEQUENCE CODE IN TABLE. 

012711 177777 . MOV #END, (R1) 

004737 006510 JSR PC,EXALL :GO EXECUTE READ REV. ” Dae TAPE. 

LET ALLEOT :B= #0 :CLEAR ALL UNITS @ EOT FLAG 
024220 105037 003450 TCLS ALLEOT 


024224 EXIT ‘TST 
024224 104432 TRAP CSEXIT 
024226 000002 WORD 1 10036-. 


- EVEN 
024230 ENDTST 


024230 L10036: 
024230 : TRAP CSETST 
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3016 .SBTTL TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

5018 p++ 

3019 : TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

5021 

5022 024232 BGNTST 

a057 024232 TS:: 

5025 024232 LET RANDOM :B= #0 ZCLEAR RAMDOM MODE FLAG. 

5026 024232 105037 003441 CLRB RANDOM 

5027 024236 LET EXPBOT :B= #1 :SET EXPECT BOT FLAG. 

5028 024236 112737 000001 003440 MOVB #1, EXPBOT 

5029 024244 LET IRE :B= PIRE ;MOVE INHIBIT RFC ERROR REPORT FLAG. 

5030 0246244 113737 002214 003445 MOVB  PIRE, IRE 

5031 024252 004737 006444 JSR PC,SETCH :CMD 1 = SET CHARACTERISTIC. 

5032 024256 LET CMDSEQ+2 := CHAR “MOVE CHAR CODE FROM P TBL TO SEQ TBL. 

5033 024256 013737 002216 003462 MOV CHAR, CMDSEQ+2 

5034 024264 LET R2 := ACMDD ;R2 POINTS TO CMD2 IN SOFT P TABLE. 

5035 024264 012702 002220 MOV #CMDD RZ 

5036 024270 004737 024742 JSR PC,PTCMDS :MOVE CMD 2 FROM P TBL TO SEQ TAL. 

5037 024274 004737 024742 JSR PC-PTCMDS [MOVE CMD 3 FROM P TBL TO SEQ TAL. 

5038 024300 004737 024742 JSR PC; PTCMDS ‘MOVE CMD 4 FROM P TBL TO SEQ TAL. 

5039 024 004737 024742 JSR PC-PTCMDS : 5 FROM P TBL TO SEQ TAL. 

5040 024310 7 0264742 JSR PC,PTCMDS ;M0 6 FROM P TBL TO SEQ TBL. 

5041 026314 004737 024742 JSR PC-PTCMDS [MOVE CMD 7 FROM P TBL TO SEQ TAL. 

5042 024320 004737 024742 JSR PC: PTCMDS [MOVE END CMD FROM P TBL TO SEQ TAL. 

5043 024324 LET JLOOP := #0 [CLEAR JMP CMD LOOP COUNT. 

5044 024324 005037 003370 CLR JLOOP 

5045 024330 LET STAFLG :B= #0 ;CLEAR START FLAG 

5046 024330 105037 003452 CLRB = STAFLG 

5047 026334 LET R1 := #CMDSEQ :INIT SEQUENCE TABLE POINTER. 

5048 024334 012701 003460 MOV CMDSEQ,R1 

5049 024340 3$: WHILE (R1) NE #END DO ;WHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE : 

5050 024340 50431$: 

5051 024340 021127 177777 CMP (R1) END 

5052 0246344 001574 BEQ 50432$ 

5053 024346 022711 000040 CMP so #JMP.C, (R1) :1S THIS A JUMP OM? 

5054 024352 001024 BNE T. 

5055 024354 LET R1 := R1 + #2 ‘BOIMT TO BRF. 

5056 024354 062701 000002 ADD #2,R1 

5057 024360 012137 003372 MOV (R1)+,JLOC ;SAVE BRF (LOCATION). 

5058 024364 022137 003370 CMP (R1)+,JLOOP :HAS LOOP COUNT BE SATISFIED? 

5059 024370 001003 BNE 1$ [IF NOT, JMP A 

5060 024372 LET R1 := R1 + #2 SIF SO, ADJUST SEQ" POUNTER 

5061 024372 062701 000002 ADD #2,R1 
024376 000760 BR = 3$ ;AND GO TO NEXT COMMAND. 

5063 024400 1$: LET JLOOP := JLOOP + #1 [UPDATE THE LOOP COUNT. 

5064 024400 005237 003370 INC JLOOP 

5065 024404 LET R1 := #CMDSEQ :INIT CMD SEQ TABLE POINTER. 

5066 024404 012701 003460 MOV #CMDSEQ,R1 

5067 024410 005337 003372 2s: DEC JLOC :DECR LOCATION COUNTER. 

5068 024414 001751 BEQ 3$ [IF THIS IS THE RIGHT LOCATION TO JMP TO. GO SET 

5069 024416 LET R17 := R1 + #10 SIF NOT, UPDATE SEQ POINTER TO NEXT CMD. 

5070 024416 062701 000010 ADD #10,R1 


5071 024422 000772 BR 2s ;D0 IT AGAIN, 
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Bh fs Oeeeee 022711 000020 6$: CMP = MDLY.C,(R1) ; DELAY? 

001026 4 :BR IF NOT. 

LET R1 := R1 + #% :R1 = LOCATION OF N COUNT. 

062701 000004 ADD #4,R1 
ore Gece LET TIME2 := (R1) ; SAVE N COUNT. 
5077 024436 011137 003366 MOV (R1), TIME2 
5078 024442 7$: DELAY 1 :GO TO SUPER-wAIT 1 MSEC. 
5079 024442 012727 000001 MOV #1, (PC)+ 
5080 024446 000000 . WORD 
5081 0246450 013727 002116 MOV LSOLY,(PC)+ 
5082 024454 000000 «WORD 0 
5083 024456 005367 177772 DEC ~6(PC) 
5084 024462 001375 BNE ° 
5085 024464 005367 177756 DEC =22(PC) 
5086 024470 001367 BNE -720 
5087 024472 005337 003366 DEC TIME2 
5088 024476 001361 7$ 
5089 024500 LET R1 z= R1 + #4 POINT TO NEXT CMD. 
5090 024500 062701 000004 ADD #4,R1 
5091 024504 000715 BR 3$ GO CHECK NEXT CMD. 
5092 024506 004737 007452 4$: JSR _— PC,SETUP :GO SETUP THE COMMAND BLOCK 
5093 024512 WHILE NCNT LT NCNT1 DO [WHILE THERE ARE RECORDS REMAINING: 
509% 024512 50433$: 
5095 024512 023737 003340 003342 CMP NCNT .NCNT1 
5096 024520 002103 BGE 504348 
5097 024522 004737 007344 JSR PC,CMDAC STORE CMD ASCII IN ERROR MSG. 
5098 024526 004737 007004 JSR PC,EXSUB ISSUE CMD TO ALL,AWAIT INTS, CHECK STATUS. 
5099 024532 IF CMDWRD EQ #GES THEN :1F CMD IS GET STATUS THEN 
5100 024532 023727 003346 100017 cme CMDWRD . AGES 
5101 024540 001002 BNE 50435$ 
5102 024542 004737 015642 JSR PC,PRXST PRINT EXTENDED STATUS REGISTERS. 
5103 024546 END IF 
5104 024546 50435$: 
5105 4546 004737 015724 JSR PC, CKHAE CHECK HALT AFTER EACH CMD FLAG. 
5106 024552 LET R2 := #1 SET ALL UNITS AT BOT/EOT. 
5107 024552 012702 000001 MOV #1,R2 
5108 024556 004737 015332 JSR PC,FIRSTU zFIND FIRST UNIT. 
5199 024562 WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE UNITS: 
5110 024562 50436$: 
5111 024562 026527 002532 177777 CMP DEVTBL (RS) ,. #END 
5112 024570 001426 BEQ 50437$ 
5113 024572 IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
5114 4572 032737 000400 003346 BIT MOD . CO. CMDWRD 
5115 001406 BEQ 504408 
5116 02460 IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT THEN: 
5117 024602 032765 0G 2 003426 BIT #X0.BOT ,EOTFLG(R 
5118 024610 001001 BNE 50441$ 
5119 024612 LET R2 := #0 CLEAR EOT/BOT FLAG. 
5120 024612 005002 CLR R2 
5121 024614 ; ENDIF 
5122 024614 50441$: 
51235 024614 ELSE ELSE IF CMD IS NOT REVERSE: 
5124 024614 000411 BR 50442$ 
5125 024616 50440$: 
5126 024616 IF #XO0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD T 
5127 024616 032765 000001 003426 BIT wx0-€ EOT, EOTFLG(R 
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“4 
SO 


50444$ 


50443$: 
;1F NOT AT EOT OR NOT A MOTION CMD THEN: 
LET R2 := #0 ;CLEAR EOT/BOT FLAG. CLA a2 


ENDIF 
50444$: 


ENDIF 
50442$: 
004737 JSR PC,NEXTU FIND NEXT UNIT 
ENDDO : 


000746 BR 
50437$: 
IF R2 EQ #1 THEN :1F ALL UNIT ARE AT EOT/BOT THEN: 
020227 (00001 CMP id 


001016 BNE 
LET NCNT1 := NCNT + #1 FORCE TERMINATION OF COMMAND. 
Oe, 003340 003342 MOV es 


003342 INC NCN 
LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
INCB ALLEOT 


105237 003450 

IF CMDLG EQ #2 THEN WHEN WRITING IS CURRENT COMMAND 
023727 003354 CMP CMDLG #2 
001002 46$ 


BNE 504 
004737 024764 inte PC, TSWEOT ;GO WRITE/READ REV ONE RECORD BEYOND EOT 
50446$: 
ELSE 


000402 BR 50447$ 
50445$: 
LET ALLEOT :B= #40 ;WHEN NOT ALL @EOT, CLEAR FLAG 

105037 003450 maa CLRB ALLEOT 


50447$: 
LET NCNT := NCNT + #1 UPDATE RECORD COUNT. 
005237 003340 INC NCNT 
LET PCMDWD := CMDWRD SAVE PREVIOUS COMMAND WORD. 
013737 003346 MOV CMDWRD . PCMDWD 
ENDDO 
000671 BR 50433$ 


50434$: 
004737 014316 JSR PC, VFYDAT IF LAST CMD WAS A WRITE VERIFY, THEN GO 
: VERIFY THE LAST N RECORDS OF DATA. 


000601 BR 50431$ 
50432$: 


001404 50443$ 
gerne 000001 003346 #CMD.CO,CMDWRD 


PUPP A PIAIA AAAI 
ene 
RGSS SSVEGEANSS 


104432 CSEXIT 
024740 000130 ‘ L10037-. 


5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
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ose ge he TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
THE COMMAND SEQUENCE TABLE. 

INPUTS: R2 = POINTER TO SOFT ‘'P** TABLE 

OUTPUTS: 

REGISTERS: R3. 

CALLS: 


024742 : LET R3 := (R2)+ = #1 SHIFT +1 ;R3 = COMMAND TABLE INDEX. 
012203 MOV (R2)+,R3 
005303 DEC R3 
303 ASL R3 
LET (R1)+ := CMDTBL(R3) :MOVE COMMAND WORD. 
016321 MOV CMDTBL (R3), (R1)+ 
LET (R1)# := (R2)+ sMOVE # OF BYTES. 
012221 MOV (R2)+,(R1)+ 
LET (R1)+ := (R2)+ sMOVE # OF OPERATIONS. 
012221 MOV (R2)+,(R1)+ 
LET (R1)+ := (R2)+ ;MOVE PATTERN CODE. 
012221 MOV (R2)+,(R1)+ 
024762 000207 RTS PC 


= a TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 


OUTPUTS: 
REGISTERS: 
CALLS: CMDAC ,EXSUB, CKHAE 


: NOP 


NOP 
007004 JSR PC,EXSUB :WRITE ONE RECORD BEYOND EOT 
015724 PC, CKHAE :SO THAT READ SHORTER STOP DISTANCE 
SHALL POSITION HEAD IN CLEAN IRG GAP 
PCMDWD := CMDWRD ;REPOSITION TAPE 
013737 003346 003352 CMDWRD , PCMDWD 
CMDWRD := #RDR ;BEFORE EXTRA RECORD 
012737 104401 003346 #RDR , CMDWRD 
CMLLG := #4 BY READING REVERSE 
012737 000004 003354 #4 ,CMDLG 
CMDPKT := CMDWRD CLR.BY #BRF.C 
013737 003346 002310 CMDWRD , CMDPKT 
042737 004000 002310 BRE .C.CMDPKT 
CMDSAV := CMDPKT ; THAT RECORD TO ALLOW 
013737 002310 003350 MO CMDPKT , CMDSAV 
CMDPKT+CP.ADL := DATARD ;NEXT COMMAND IN THE 
013737 003336 002312 DATARD , CMDPKT +CP 
007344 PC, CMDAC : TABLE TO BE EXECUTED 
007004 PC,EXSUB 
015724 «ate 


DADAM AVIA VIAVIVI 
ed ed ed eed et ed 
SHLIGHI LIS LSRSOSB~ 


025070 
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5240 025070 L10037: 
2se) 025070 104401 TRAP CSETST 


5242 
5243 025072 
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- TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
025072 BGNMOD 


++ 
; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


025072 BGNHRD 
025072 -WORD L10040=L $HARD/2 
025074 LSHARD: : 


025074 GPRMA = TS4ADR,,0,0,160002,177564, YES 
TSCODE 
TS4ADR 
TSLOL IM 
TSHILIM 


TSCODE 
TS4VCT 
777 
TSLOLIM 


GPRMD TS4VCT,2,0,777,60,776.YES 


025114 ; TSHILIM 


025116 EXIT HRD 
025116 ° TSCODE 


° BEX 
025120 051524 051123 040440 TS4ADR: . /TSSR_ADDRESS/ 
025135 126 041505 047524 TS4VCT: . fod OR/ 
025144 ENDHRD 


025144 L10040: 
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025144 
025144 
025146 


025146 
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000130 
025710 
000001 


000130 
025727 
000400 


001130 
026032 
000400 


001130 
025756 
000001 


003130 
026106 
000400 
004024 
002130 
026002 
000001 


003130 
026063 
000001 


005130 
026153 
000001 


004130 
026127 
000001 


127044 
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-SBTTL SOFTWARE PARAMETER CODING SECTION 


-++ 


; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

: ad ARE USED BY THE SUPERVISOR TO BUILD P=TABLES THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


LSSOFT:: 


NEXTSP: 


BONSFT 


CLRM,0,1,YES 


RRVM,0,400, YES 


RCVERM,2,400, YES 


HAEM,2,1,YES 


IRECM,6,400,YES 


NEXTSP 
BADTM,4,1,YES 


DINTM,6,1,YES 


IREM,12,1,YES 


CHGM,10,1,YES 


ENDSP1 


«WORD L10041=L$SOF T/2 
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025240 


025372 


ODING 
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000001 
077777 
012052 
026271 
000017 
000000 
000010 
013052 


1 
004000 


000001 
077777 
016052 
026271 
000017 
000000 
000010 
017052 
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GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


SOF TWARE PARAMETER CODING SECTION 


CHARM, 14,0,377,0,777.YES 


CMD2M,16,D,37,1,33.,YES 


BPCRM,20,D,~-1,1,DATCNT,YES 


NUMBM ,22,D,-1,1,77777,YES 


PATTM,24,D0,17,0,10,YES 


CMD 3M,26.0,37.1,33.YES 


BPCRM,30,D,-1,1,DATCNT, YES 


NUMBM ,32,D,-1,1,77777, YES 


PATTM, 34,D,17,0,10, YES 


CMD4M, 36,D,37,1,33.,¥ES 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
NUE 
TSLOLIM 
TSHILIM 
TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSLOLIM 


TSLOLIM 


TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
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025374 


025526 


NG 
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026312 
000037 


000001 
077777 
022052 
026271 
000017 
000000 
000010 
023052 
026320 
000037 
000001 
000033 
024052 


000001 
077777 
026052 
026271 
000017 
000000 
000010 
002004 
075004 
027052 
026326 
000037 


000001 
000033 
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XFER 
ENDSP1: XFER 
ENDSP2: GPRMD 


TWARE PARAMETER CODING SECTION 


BPCRM,40,D,-1,1,DATCNT,YES 


NUMBM ,42,D,-1,1,77777,YES 


PATTM,44,D,17,0,10,YES 


CMD5M,46,0,37,1,33.,YES 


BPCRM,50,D,-1,1,DATCNT,YES 


NUMBM ,52,D,-1,1,77777,YES 


PATTM,54,D,17,0,10, YES 


ENDSP2 
ENDSP 
CMD6M,56,D0,37,1,33,YES 


CMD4M 
37 
TSLOLIM 
TSHILIM 


TSCODE 
te 


TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 


-1 
TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
CMDSM 
37 


TSLOLIM 
TSHILIM 


TSCODE 
= 


TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 


-1 
TSLOLIM 
TSHILIM 


TSCODE 
PATTM 
17 
TSLOLIM 
TSHILIM 


TSHILIM 
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GPRMD BPCRM,60,0.-1,1,DATCNT,YES 
030052 ° TSCODE 
026237 ° BPCRM 
177777 ~ 
000001 TSLOLIM 


004000 3 TSHILIM 
NUMBM,62,D,-1,1,77777. YES 
931052 


000001 
077777 TSHILIM 
PATT™M,64,D,17,0,10, YES 
032052 TSCODE 
026271 : PATTM 
000017 17 
000000 . TSLOLIM 
000010 TSHILIM 
CMD7M,66,D,37,1,33.YES 
033052 ‘ TSCODE 
0263 CMD 7M 
37 
TSLOLIM 
TSHILIM 
BPCRM,70,D,-1,1,DATCNT,YES 


TSHILIM 
TSCODE 
nen 
000001 TSLOLIM 
077777 é TSHILIM 
PATT™M,74,0,17,0,10, YES 
036052 


026271 
000017 


NUMBM ,72,D,-1,1,77777,YES 


000000 

000010 ‘ TSHILIM 
CMD8M,76,D0,37,1,33,YES 

037052 . TSCODE 

26342 . CMD8M 


37 
TSLOLIM 
TSHILIM 


TSCODE 
BPCRM 


TSLOL IM 
TSHILIM 


TSCODE 


BPCRM,100,D,-1,1,DATCNT,YES 


NUMBM,102,D,-1,1,77777,YES 
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026251 ° NUMBM 

177777 dD 1 

000001 T$LOL IM 

077777 TSHILIM 
GPRMD PATTM,104,D,17,0,10,YES 

042052 


026271 
000017 


vi 
vw 
_ 
oO 


000000 ‘ 
000010 . TSHILIM 
ENDSP: 
XFER = JMPMSG 
176004 . TSCODE 


PAPAS AISI 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
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5521 
5522 


026271 


026302 


026350 
026350 


026350 


026550 
026550 


0 
026554 


000100 


026572 
000007 
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052101 


027504 
027504 


020122 


000063 
000064 
000065 
000066 


000067 
000070 
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TSCODE 


-NLIST BEX 
CLRM: -ASCIZ /CLEAR COUNTERS/ 
RRVM: -ASCIZ /RESET RANDOM VARIABLES/ 
HAEM: -ASCIZ /HALT AFTER EACH C 
BADTM: .ASCIZ /BAD TAPE SPOT DETECTION/ 
RCVERM: .ASCIZ /PRINT RECOVERABLE ERRORS/ 
DINTM: .ASCIZ /DISABLE INTERRUPTS/ 
IRECM: .ASCIZ /INHIBIT RECOVERY/ 
CHGM: eASCIZ /CHANGE CMD SEQUENCE/ 
IREM: -ASCIZ /INHIBIT RFC ERROR REPORT/ 
HARM: .ASCIZ /CHARACTERISTICS CODE/ 
CMD2M: .ASCIZ ‘'CMD/2*' 
BPCRM: .ASCIZ /BRF COUNT/ 
: .ASCIZ /# OF OPERATIONS/ 
PATTM: .ASCIZ /PATTERN/ 
LIS BEX 
~EVEN 
JMPMSG 
EXIT SFT 
.- WORD 
NLIST EX 
CMD 3M: ASCIZ ‘'CMD/3'' 
CMD4M: ASCIZ ‘'CMD/4*' 
CMDSM: .ASCIZ ‘'CMD/5S"' 
CMD6M: .ASCIZ ‘'CMD/6"' 
CMD7M: .ASCIZ ‘'CMD/7*' 
CMD8M: .ASCIZ ‘‘CMD/8"' 
IST BEX 
EVEN 
ENDSFT 
-EVEN 
L10041: 
EEK RRR KERRIER EEE KEKE EKER KEE KEKE KEE EKER KEKE EEE EEE EEK 
FARRER KKK EERE ERE KEKE KK ERE KEK EKER KEKE KEKE KERRIES 
: PATCH AREA 
PATCH:: .BLKW 64. 
3 RRR EKER EK EKER RK RK ERRERER ERE EERER EK 
FI KIRKE KEKE IK EKER EER ERE KER KEKE EK EKER EKER EEK 
LASTAD 
EVEN 
-WORD TSFREE 
-WORD TS$SIZE 
LS$LAST:: 


ENDMOD 
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MAA III 
WONAULSWH— 


026554 


026572 
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000000 
000000 
000000 
000000 
000002 


172522 
000224 


000001 
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-SBTTL HARD CODED P=TBL 


i ad 
;DIAG IS PRE-PARAMETERIZED PER TBL 


BGNSETUP 1 
BGNPTAB 


L10042: 
172522 
224 
ENDPTAB 
L10044: 
ENDSETUP 


«END 


0 
0 
0 
0 
L 


10044-./2=1 
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ACK.C = 100000 G BRFCNT 003344 G CNTEND= 003324 CSPNTX= 000015 
ADR = G BRF.C = 004000 G C$Q10 = 000377 
CSRDBU= 000007 


EXARTN 00700. 
EXCRTN 010634 
EXCUTE 010326 G 
EXPBOT 003440 G 


FATSM 004373 G 
FIRSTU 015332 G 
FMT.CO= 000040 G 
FMT.C1= 000100 G 
FTLCNT 003314 G 
FUNRM 004353 G 
FSAU = 15 
FSAUTO= 000020 
FSBGN = 000040 
FSCLEA= 000007 

= 000016 


ofon 
aah 
zisse 
ed 
z 
= 
4 
pnnnnnnu 


INC 
0 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 


seaeseanee 
ELaSssses 


secre 
3 
T 
ae 


: 
Rae 
Yes 


BPCRM 7 CMD 026342 C G$NO = 
BRCPK 002324 CNTBGN= 002554 ERLOG 0034 GSOFFS= 000400 


Oo 
N 
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GSOFSI= 000376 JMPMSG 026302 MSGPKO 00235 
GSPRMA= 000001 JMP.C = 000040 eer, esze 
GSPRMD= 000002 mS 


= 000000 
GSRADA= 000149 


° 

4 
RS 
ae 


oO 

Row 

SoOOw 
w 
o 


000000 
GSRADD= 000040 
GSRADL= 000120 
GS$RADO= 000020 
GSXFER= 000004 
ee” eee 


SELES 
SSeS SEWIS SSE 
S3335535 


NOARWNON 
ADA ADA AAA AQAAQQAD~ 


cn 
State 


I 
IER 
IE.C 

INIT10 017550 


we 
ADA AD A AAA AQAAAAAAAAAAGD 


ee 


SSSSSSS39S3333333399933 


a 


Sa I SOP SS A SP SS 2 
WANA ronononononn 


es ts a ss a ss ss ss 2 ss —s ss ss ss a ss ss ss ss ss ss ss 


PEERS 


o-o * Oo 
DADAAAQAAQGAAAAA A DA AA DAA 


S888: 


G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
26 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
6G 
G 
G 
4¢ 
G 
G 
2G 
G 
2G 
2G 
G 
G 
G 
6G 


ADQAQAQAAQAAIG a 
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RPT1I 017427 TCC6 012560 G TSPTHV= 000001 VFEXC 014402 G 
RPT1J 017333 TCC? 012722 G TSPTNU= 000001 VFISU. 014630 G 
RPTIK 017420 TC2RTN 012026 TSSAVL= 177777 VF YCNT srg G 
RRANV 203 G TIME? 003364 G TSSEGL= 177777 VFYDAT 014316 G 
RRBC 002614 G TIME2 003366 G T$SIZE= 000007 VFYFLG 003442 G 
RRECL = 20 G 004207 G T$ VFY.C = 0C7100 G 
RRREC 002734 G TOOMM 004460 G TSTAGL= 177777 WLKZRO 010 
RRUNR 002744 G TRAPD4 003454 G TSTAGN= 010045 WRBC 002554 G 
RRVM 025727 TRAP4 021454 G TSTEMP= 000000 WRECL = G 
RTLE 012740 G TSAM 004436 G TSTEST= 000005 WRR = 105005 G 
RTLRIN 01 TSBA_ = 002452 G TSTSTM= 177777 WRREC 002714 G 
PK 002330 G TSC.FC= 177717 G TSTSTS= 000001 WRT = 104005 G 
= 102010 G TSC.1TC= 177761 G TSSAU_= 010016 WRTY 013 G 
RWERR 003413 G TSD8 002452 G T$S$AUT= 010013 WRTYCT 003244 G 
RSSAVE 003400 G TSSR 002462 G TSSCLE= 010014 WRTYER 003410 G 
SCCNT 003264 G TSSREG 003402 G TSSDAT= 010044 WRTYFG 003407 G 
SCERM 004230 G TSVCT 002472 G T$$DU = 010015 002724 G 
SCH = 14 G TS.A16= 000400 G TSSHAR= 010040 WSSR 011152 G 
SCHBK 002442 G -A17= 001000 G T$$HW = 010000 WIM = 100011 G 
SCHCNT= 000010 G -NBA= 002000 G TSSINI= 010012 WIR = 101011 G 
QEND 003550 G TS.NXM= 004000 G TSSMSG= 010003 wiv = 104105 G 
SETCH 44 G TS.OFL= 000100 G T$SPC = 000001 WTVERM 004164 G 
SETRW 006470 G TS.RMR= 010000 G TSSPRO= 010011 WIYBRF 013340 
SETUP 007452 G TS.SC = 100000 G TSSPTA= 010043 WIYCMD 013334 
SFF = 105010 G TS.SPE= 020000 G TSSRPT= 010010 WTYWRD 013336 
SFPTBL 002202 G TS.SSR= 000200 G TSSSOF= 01004 i X>AL WA= 
SFR = 105410 G -UPE= 040000 TS$SRV= 010007 X$FALS= 000040 
SRF = 104010 G TS4ADR 025120 T$S$SUB= 010033 XSOFFS= 000400 
= 104410 G TS4CL_ 002522 G T$$SW = 010001 XSTRUE= 000020 
STAERM 005372 G TS4INT 002512 G TSSTES= 010037 X0.BOT= 000002 G 
STAER1 005704 TS4INO 006316 G T1 21672 G X0.EOT= 000001 G 
STAER2 TS4IN1 006324 G T1SWB 003447 G X0.LET= 020000 G 
STAERS 006141 TS4IN2 006332 G 1.1 021702 X0.ONL= 000100 G 
STAERS 006177 TS4IN3 006340 G 71.10 022232 X0.RLL= 010000 G 
STAERS 006217 TS4VCT 025135 T1.11 022252 X0.RLS= 040000 G 
STAER6 06026 TSARGC= 000003 T1.12 22336 x0. TMK= 100000 G 
STAER7 005776 TSCODE= 023004 T1.2 022026 X2.0Pm= 100000 G 
STAFLG 003452 G TSERRN= 00001 T1.3 022052 X3.DCK= 000010 G 
SVCGBL= 000000 TSEXCP= 000000 71.4 0220 X3.RNY= 157400 G 
SVCINS= 000001 TSFLAG= 000041 11.5 022112 ZROPAT 010156 
SVCSUB= 000000 TSFREE= 026572 71.6 022132 = 177777 
SVCTAG= 000000 T = 000000 11.7 022152 SERFLG= 00 
SVCTST= 000000 TSHILI= 000010 71.8 022172 SFSAND= 090310 
LG 003444 G TSLAST= 000001 11.9 022212 $FSBAD= 000401 
-C = 010000 G TSLOLI= 000000 T2 023260 G $FSBLA= 000170 
SSLSYM= 01 TSLSYM= 010000 13 023734 G SFSCAS= 000150 
TCCRA 011644 TSLTNO= 000005 14 024100 G SFSDEC= 000220 
TCCO 011664 G TSNEST= 177777 024232 G 0 = 000340 
TCC1 011702 G TSNSO = 000000 TSWEOT 024764 SFSFAL= 000405 
TCC2 011720 G TSNS1 = 000005 = 000200 G $FSGOO= 0004 
TCC3 012030 G TSNS2 = 000002 L_ = 100412 G SFSIF = 000110 
TCC4 012 G TSPCNT= 000000 UNREC 003414 G $SFSINC= 000210 
TCC5 012462 G TSPTAB= 010043 URERM 004572 G $FS$LOO= v00200 
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CZTSHC.P11 11-OCT-79 13:59 SYMBOL TABLE 
$$LOC = 024700 $SRETU= 000000 $$SRC = 000000 $$TGS2= 000000 . = 026572 
SSLOCN= 000000 $SRTNI= 000000 $$TGSV= 000000 $$TO = 000000 

SSREG = 177777 $SRTN2= 000000 $$TGS1= 000000 $S$$TAG= 050000 


- ABS. 026572 000 


ERRORS DETECTED: 0 


CZTSHC ,CZTSHC/SOL/EQ:ONEF ILE=NLISTF.P11,SVC.SML,SPMAC.SML,LISTF.P11,CZTSHC.P11 
RUN-TIME: 149 156 .9 SEC eZ 

RUN-TIME RATIO: 530/307=1. 

CORE USED: 28K (56 PAGES) 


